/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Techniques / httpSocket / Example Project (1.x)

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 0a 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 01 01 00 00 07 |AAAA..??|??......|
|00000020| 41 70 70 4e 61 6d 65 80 | 80 80 01 80 80 80 01 01 |AppName.|........|
|00000030| 00 00 00 00 00 00 00 06 | 69 63 73 23 80 01 01 80 |........|ics#....|
|00000040| 06 60 08 10 08 90 08 10 | 0c b0 33 4c 20 84 22 14 |.`......|..3L .".|
|00000050| 60 86 a2 17 99 9f 66 7e | 18 78 06 e0 01 80 01 80 |`.....f~|.x......|
|00000060| 07 e0 0f f0 0f f0 0f f0 | 0f f0 3f fc 3f fc 3f fc |........|..?.?.?.|
|00000070| 7f fe ff ff ff ff 7f fe | 1f f8 07 e0 01 80 49 43 |........|......IC|
|00000080| 4e 23 80 04 00 01 80 00 | 00 06 60 00 00 18 18 00 |N#......|..`.....|
|00000090| 00 60 06 00 00 48 0a 00 | 00 42 22 00 00 40 8a 00 |.`...H..|.B"..@..|
|000000a0| 00 40 22 00 00 40 8a 00 | 00 40 22 00 00 40 8a 00 |.@"..@..|.@"..@..|
|000000b0| 00 60 26 00 01 98 99 80 | 06 06 60 60 18 01 80 18 |.`&.....|..``....|
|000000c0| 12 02 20 28 10 88 88 88 | 10 22 02 28 30 08 80 8c |.. (....|.".(0...|
|000000d0| 70 22 02 2a 90 08 80 8d | b0 22 02 2b 98 09 80 99 |p".*....|.".+....|
|000000e0| a6 26 62 67 69 98 19 9e | 1a 60 06 78 06 80 01 e0 |.&bgi...|.`.x....|
|000000f0| 01 a0 07 80 00 68 1e 00 | 00 1a 78 00 00 06 e0 00 |.....h..|..x.....|
|00000100| 00 01 80 00 00 01 80 00 | 00 07 e0 00 00 1f f8 00 |........|........|
|00000110| 00 7f fe 00 00 7f fe 00 | 00 7f fe 00 00 7f fe 00 |........|........|
|00000120| 00 7f fe 00 00 7f fe 00 | 00 7f fe 00 00 7f fe 00 |........|........|
|00000130| 00 7f fe 00 01 ff ff 80 | 07 ff ff e0 1f ff ff f8 |........|........|
|00000140| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 3f ff ff fc |........|....?...|
|00000150| 7f ff ff fe ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000160| ff ff ff ff 7f ff ff fe | 1f ff ff f8 07 ff ff e0 |........|........|
|00000170| 01 ff ff 80 00 7f fe 00 | 00 1f f8 00 00 07 e0 00 |........|........|
|00000180| 00 01 80 00 69 63 73 34 | 80 02 00 00 00 0f f0 00 |....ics4|........|
|00000190| 00 00 00 00 0f f8 8f f0 | 00 00 00 00 f8 88 88 9f |........|........|
|000001a0| 00 00 00 00 f8 88 99 9f | 00 00 00 00 f8 88 99 9f |........|........|
|000001b0| 00 00 00 00 f8 88 99 9f | 00 00 00 ff cc 88 99 11 |........|........|
|000001c0| ff 00 00 fc cc cc 11 11 | 1f 00 00 fc c3 73 21 22 |........|.....s!"|
|000001d0| 2f 00 0f fc c7 37 12 12 | 2f f0 fc fc c3 73 21 22 |/....7..|/....s!"|
|000001e0| 2f df f0 cf f7 3f f2 1f | fd df 0f f0 cf fc cf fd |/....?..|........|
|000001f0| df f0 00 0f f0 cc cd df | f0 00 00 00 0f f0 df f0 |........|........|
|00000200| 00 00 00 00 00 0f f0 00 | 00 00 69 63 73 38 80 04 |........|..ics8..|
|00000210| 00 00 00 00 00 00 00 ff | ff 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 ff ff e1 | e1 ff ff 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 ff e3 e1 e1 | e1 e1 e5 ff 00 00 00 00 |........|........|
|00000240| 00 00 00 00 ff e3 e3 e3 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000250| 00 00 00 00 ff e3 e3 e3 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000260| 00 00 00 00 ff e3 e3 e3 | e5 e5 e5 ff 00 00 00 00 |........|........|
|00000270| 00 00 ff ff 2a 2a e3 e3 | e5 e5 0b 0b ff ff 00 00 |....**..|........|
|00000280| 00 00 ff 2a 2a 2a 2a 2a | 0b 0b 0b 0b 0b ff 00 00 |...*****|........|
|00000290| 00 00 ff 54 54 7f 7f 7f | 11 11 11 17 17 ff 00 00 |...TT...|........|
|000002a0| 00 ff ff 54 54 7f 7f 7f | 11 11 11 17 17 ff ff 00 |...TT...|........|
|000002b0| ff f6 ff 54 54 7f 7f 7f | 11 11 11 17 17 ff f9 ff |...TT...|........|
|000002c0| ff f6 f6 ff ff 7f 7f ff | ff 11 11 ff ff f9 f9 ff |........|........|
|000002d0| 00 ff ff f6 f6 ff ff f7 | f7 ff ff f9 f9 ff ff 00 |........|........|
|000002e0| 00 00 00 ff ff f6 f6 f7 | f7 f9 f9 ff ff 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 ff ff f6 | f9 ff ff 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 ff | ff 00 00 00 00 00 00 00 |........|........|
|00000310| 69 63 6c 34 80 08 00 00 | 00 00 00 00 00 0f f0 00 |icl4....|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 0f f8 8f f0 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 0f f8 88 88 8f |........|........|
|00000340| f0 00 00 00 00 00 00 00 | 00 00 0f f8 88 88 88 88 |........|........|
|00000350| 8f f0 00 00 00 00 00 00 | 00 00 0f 88 08 88 88 88 |........|........|
|00000360| 89 f0 00 00 00 00 00 00 | 00 00 0f 88 88 08 88 89 |........|........|
|00000370| 99 f0 00 00 00 00 00 00 | 00 00 0f 88 88 88 09 99 |........|........|
|00000380| 99 f0 00 00 00 00 00 00 | 00 00 0f 88 88 88 99 99 |........|........|
|00000390| 99 f0 00 00 00 00 00 00 | 00 00 0f 88 88 88 89 99 |........|........|
|000003a0| 99 f0 00 00 00 00 00 00 | 00 00 0f 88 88 88 99 99 |........|........|
|000003b0| 99 f0 00 00 00 00 00 00 | 00 00 0f 88 88 88 89 99 |........|........|
|000003c0| 99 f0 00 00 00 00 00 00 | 00 00 0f 88 88 88 99 99 |........|........|
|000003d0| 99 f0 00 00 00 00 00 00 | 00 0f fc c8 88 88 89 99 |........|........|
|000003e0| 91 1f f0 00 00 00 00 00 | 0f fc cc cc c8 88 99 91 |........|........|
|000003f0| 11 11 1f f0 00 00 00 0f | fc cc cc cc cc cc 71 11 |........|......q.|
|00000400| 11 11 11 1f f0 00 00 0f | cc 0c cc cc cc 37 22 01 |........|.....7".|
|00000410| 11 11 11 12 f0 00 00 0f | cc cc 0c cc 73 73 71 21 |........|....ssq!|
|00000420| 01 11 12 22 f0 00 00 0f | cc cc cc 07 37 37 22 12 |..."....|....77".|
|00000430| 12 02 22 22 f0 00 00 ff | cc cc cc 73 73 73 71 21 |..""....|...sssq!|
|00000440| 21 22 22 22 ff 00 0f 0f | cc cc cc c7 37 37 22 12 |!"""....|....77".|
|00000450| 12 12 22 22 fd f0 f0 cf | cc cc cc 73 73 73 71 21 |..""....|...sssq!|
|00000460| 21 22 22 22 fc df fc cf | cc cc cc c7 37 37 22 12 |!"""....|....77".|
|00000470| 12 12 22 22 fc cf fc 0f | fc cc cc 73 73 7f f1 21 |..""....|...ss..!|
|00000480| 21 22 22 2f fc df fc cc | 0f fc cc c7 3f fd df f2 |!""/....|....?...|
|00000490| 12 12 2f fc dd df 0f fc | cc 0f fc 7f fd dd dc cf |../.....|........|
|000004a0| f1 2f fc dd df f0 00 0f | fc cc 0f fd dd cc cc cc |./......|........|
|000004b0| cf fc dd df f0 00 00 00 | 0f fc cc 00 cc cc cc cc |........|........|
|000004c0| cc dd df f0 00 00 00 00 | 00 0f fc cc 00 cc cc cc |........|........|
|000004d0| dd df f0 00 00 00 00 00 | 00 00 0f fc cc 00 cc dd |........|........|
|000004e0| df f0 00 00 00 00 00 00 | 00 00 00 0f fc cc dd df |........|........|
|000004f0| f0 00 00 00 00 00 00 00 | 00 00 00 00 0f fc df f0 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0f f0 00 |........|........|
|00000510| 00 00 00 00 00 00 69 63 | 6c 38 80 10 00 00 00 00 |......ic|l8......|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 ff ff e1 e1 ff ff 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 ff | ff e1 e1 e1 e1 e1 e1 ff |........|........|
|00000570| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 ff ff e1 | e1 e1 e1 e1 e1 e1 e1 e1 |........|........|
|00000590| e1 ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 ff e3 e3 | 00 e1 e1 e1 e1 e1 e1 e1 |........|........|
|000005b0| e3 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 ff e3 e3 | e3 e3 00 e1 e1 e1 e3 e5 |........|........|
|000005d0| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 ff e3 e3 | e3 e3 e3 e3 00 e5 e5 e5 |........|........|
|000005f0| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 ff e3 e3 | e3 e3 e3 e3 e5 e5 e5 e5 |........|........|
|00000610| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 ff e3 e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000630| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 ff e3 e3 | e3 e3 e3 e3 e5 e5 e5 e5 |........|........|
|00000650| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 ff e3 e3 | e3 e3 e3 e3 e3 e5 e5 e5 |........|........|
|00000670| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 ff e3 e3 | e3 e3 e3 e3 e5 e5 e5 e5 |........|........|
|00000690| e5 e5 ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 ff ff 2a 2a e3 | e3 e3 e3 e3 e3 e5 e5 e5 |.....**.|........|
|000006b0| e5 0b 0b ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 ff ff 2a 2a 2a 2a 2a | 2a e3 e3 e3 e5 e5 e5 0b |...*****|*.......|
|000006d0| 0b 0b 0b 0b 0b ff ff 00 | 00 00 00 00 00 00 00 ff |........|........|
|000006e0| ff 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 54 0b 0b 0b |.*******|****T...|
|000006f0| 0b 0b 0b 0b 0b 0b 0b ff | ff 00 00 00 00 00 00 ff |........|........|
|00000700| 54 54 00 2a 2a 2a 2a 2a | 2a 2a 54 7f 11 11 00 0b |TT.*****|**T.....|
|00000710| 0b 0b 0b 0b 0b 0b 11 17 | ff 00 00 00 00 00 00 ff |........|........|
|00000720| 54 54 54 54 00 2a 2a 2a | 54 7f 7f 7f 7f 11 11 11 |TTTT.***|T.......|
|00000730| 00 0b 0b 0b 11 17 17 17 | ff 00 00 00 00 00 00 ff |........|........|
|00000740| 54 54 54 54 54 54 00 7f | 7f 7f 7f 7f 11 11 11 11 |TTTTTT..|........|
|00000750| 11 11 00 17 17 17 17 17 | ff 00 00 00 00 00 ff ff |........|........|
|00000760| 54 54 54 54 54 54 7f 7f | 7f 7f 7f 7f 7f 11 11 11 |TTTTTT..|........|
|00000770| 11 11 17 17 17 17 17 17 | ff ff 00 00 00 ff 00 ff |........|........|
|00000780| 54 54 54 54 54 54 54 7f | 7f 7f 7f 7f 11 11 11 11 |TTTTTTT.|........|
|00000790| 11 11 11 17 17 17 17 17 | ff f9 ff 00 ff 00 f7 ff |........|........|
|000007a0| 54 54 54 54 54 54 7f 7f | 7f 7f 7f 7f 7f 11 11 11 |TTTTTT..|........|
|000007b0| 11 11 17 17 17 17 17 17 | ff f7 f9 ff ff f7 f7 ff |........|........|
|000007c0| 54 54 54 54 54 54 54 7f | 7f 7f 7f 7f 11 11 11 11 |TTTTTTT.|........|
|000007d0| 11 11 11 17 17 17 17 17 | ff f7 f7 ff ff f7 00 ff |........|........|
|000007e0| ff 54 54 54 54 54 7f 7f | 7f 7f 7f ff ff 11 11 11 |.TTTTT..|........|
|000007f0| 11 11 17 17 17 17 17 ff | ff f7 f9 ff ff f7 f7 f7 |........|........|
|00000800| 00 ff ff 54 54 54 54 7f | 7f ff ff f9 f9 ff ff 11 |...TTTT.|........|
|00000810| 11 11 11 17 17 ff ff f7 | f9 f9 f9 ff 00 ff ff f7 |........|........|
|00000820| f7 f7 00 ff ff 54 7f ff | ff f9 f9 f9 f9 f7 f6 ff |.....T..|........|
|00000830| ff 11 17 ff ff f7 f9 f9 | f9 ff ff 00 00 00 00 ff |........|........|
|00000840| ff f7 f7 f7 00 ff ff f9 | f9 f9 f7 f6 f6 f6 f6 f6 |........|........|
|00000850| f6 ff ff f7 f9 f9 f9 ff | ff 00 00 00 00 00 00 00 |........|........|
|00000860| 00 ff ff f7 f7 f7 00 00 | f6 f6 f6 f6 f6 f6 f6 f6 |........|........|
|00000870| f7 f7 f9 f9 f9 ff ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 ff ff f7 f7 f7 | 00 00 f6 f6 f6 f6 f7 f7 |........|........|
|00000890| f9 f9 f9 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 ff ff f7 | f7 f7 00 00 f7 f7 f9 f9 |........|........|
|000008b0| f9 ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 ff | ff f7 f7 f7 f9 f9 f9 ff |........|........|
|000008d0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 ff ff f7 f9 ff ff 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 04 74 65 |........|......te|
|00000920| 78 74 04 52 2a 63 68 04 | 54 45 58 54 00 00 01 41 |xt.R*ch.|TEXT...A|
|00000930| 04 56 69 65 77 07 57 69 | 6e 64 6f 77 31 03 25 a9 |.View.Wi|ndow1.%.|
|00000940| 01 12 04 4e 61 6d 65 07 | 57 69 6e 64 6f 77 31 05 |...Name.|Window1.|
|00000950| 46 72 61 6d 65 01 30 0c | 48 61 73 42 61 63 6b 43 |Frame.0.|HasBackC|
|00000960| 6f 6c 6f 72 05 46 61 6c | 73 65 09 42 61 63 6b 43 |olor.Fal|se.BackC|
|00000970| 6f 6c 6f 72 08 31 36 37 | 37 37 32 31 35 08 42 61 |olor.167|77215.Ba|
|00000980| 63 6b 64 72 6f 70 01 30 | 05 54 69 74 6c 65 12 68 |ckdrop.0|.Title.h|
|00000990| 74 74 70 53 6f 63 6b 65 | 74 20 65 78 61 6d 70 6c |ttpSocke|t exampl|
|000009a0| 65 07 56 69 73 69 62 6c | 65 04 54 72 75 65 08 43 |e.Visibl|e.True.C|
|000009b0| 6c 6f 73 65 42 6f 78 04 | 54 72 75 65 08 47 72 6f |loseBox.|True.Gro|
|000009c0| 77 49 63 6f 6e 05 46 61 | 6c 73 65 08 5a 6f 6f 6d |wIcon.Fa|lse.Zoom|
|000009d0| 49 63 6f 6e 05 46 61 6c | 73 65 0b 42 61 6c 6c 6f |Icon.Fal|se.Ballo|
|000009e0| 6f 6e 48 65 6c 70 00 09 | 50 6c 61 63 65 6d 65 6e |onHelp..|Placemen|
|000009f0| 74 01 30 05 57 69 64 74 | 68 03 35 32 39 06 48 65 |t.0.Widt|h.529.He|
|00000a00| 69 67 68 74 03 33 32 39 | 08 4d 69 6e 57 69 64 74 |ight.329|.MinWidt|
|00000a10| 68 02 36 34 09 4d 69 6e | 48 65 69 67 68 74 02 36 |h.64.Min|Height.6|
|00000a20| 34 08 4d 61 78 57 69 64 | 74 68 05 33 32 30 30 30 |4.MaxWid|th.32000|
|00000a30| 09 4d 61 78 48 65 69 67 | 68 74 05 33 32 30 30 30 |.MaxHeig|ht.32000|
|00000a40| 05 00 07 57 69 6e 64 6f | 77 31 a4 01 06 41 70 70 |...Windo|w1...App|
|00000a50| 6c 65 74 02 10 72 65 74 | 72 79 20 61 73 20 62 6f |let..ret|ry as bo|
|00000a60| 6f 6c 65 61 6e 00 14 72 | 65 74 75 72 6e 50 61 73 |olean..r|eturnPas|
|00000a70| 73 20 61 73 20 73 74 72 | 69 6e 67 00 01 07 47 65 |s as str|ing...Ge|
|00000a80| 74 50 61 73 73 0b 73 20 | 61 73 20 73 74 72 69 6e |tPass.s |as strin|
|00000a90| 67 06 73 74 72 69 6e 67 | 00 06 11 06 11 08 27 46 |g.string|......'F|
|00000aa0| 75 6e 63 74 69 6f 6e 20 | 47 65 74 50 61 73 73 28 |unction |GetPass(|
|00000ab0| 73 20 61 73 20 73 74 72 | 69 6e 67 29 20 41 73 20 |s as str|ing) As |
|00000ac0| 73 74 72 69 6e 67 10 64 | 69 6d 20 64 20 61 73 20 |string.d|im d as |
|00000ad0| 64 69 61 6c 6f 67 33 0d | 64 3d 6e 65 77 20 64 69 |dialog3.|d=new di|
|00000ae0| 61 6c 6f 67 33 27 64 2e | 53 74 61 74 69 63 54 65 |alog3'd.|StaticTe|
|00000af0| 78 74 33 2e 54 65 78 74 | 3d 64 2e 53 74 61 74 69 |xt3.Text|=d.Stati|
|00000b00| 63 54 65 78 74 33 2e 54 | 65 78 74 2b 73 0d 64 2e |cText3.T|ext+s.d.|
|00000b10| 54 61 72 67 65 74 3d 73 | 65 6c 66 0b 64 2e 53 68 |Target=s|elf.d.Sh|
|00000b20| 6f 77 4d 6f 64 61 6c 11 | 72 65 74 75 72 6e 20 72 |owModal.|return r|
|00000b30| 65 74 75 72 6e 50 61 73 | 73 0c 45 6e 64 20 46 75 |eturnPas|s.End Fu|
|00000b40| 6e 63 74 69 6f 6e 00 02 | 0f 45 6e 61 62 6c 65 4d |nction..|.EnableM|
|00000b50| 65 6e 75 49 74 65 6d 73 | 03 1a 03 1a 05 15 53 75 |enuItems|......Su|
|00000b60| 62 20 45 6e 61 62 6c 65 | 4d 65 6e 75 49 74 65 6d |b Enable|MenuItem|
|00000b70| 73 28 29 19 46 69 6c 65 | 50 61 67 65 49 6e 66 6f |s().File|PageInfo|
|00000b80| 2e 45 6e 61 62 6c 65 64 | 3d 74 72 75 65 1b 46 69 |.Enabled|=true.Fi|
|00000b90| 6c 65 53 75 62 6d 69 74 | 46 6f 72 6d 2e 45 6e 61 |leSubmit|Form.Ena|
|00000ba0| 62 6c 65 64 3d 74 72 75 | 65 1a 46 69 6c 65 54 72 |bled=tru|e.FileTr|
|00000bb0| 61 6e 73 6c 61 74 65 2e | 45 6e 61 62 6c 65 64 3d |anslate.|Enabled=|
|00000bc0| 74 72 75 65 07 45 6e 64 | 20 53 75 62 04 4f 70 65 |true.End| Sub.Ope|
|00000bd0| 6e 0b a9 01 0b a9 01 0d | 0a 53 75 62 20 4f 70 65 |n.......|.Sub Ope|
|00000be0| 6e 28 29 1b 68 74 74 70 | 53 6f 63 6b 65 74 2e 4d |n().http|Socket.M|
|00000bf0| 6f 72 65 44 61 74 61 44 | 65 6c 61 79 3d 33 30 28 |oreDataD|elay=30(|
|00000c00| 50 6f 70 75 70 4d 65 6e | 75 31 2e 41 64 64 52 6f |PopupMen|u1.AddRo|
|00000c10| 77 20 22 77 77 77 2e 6d | 61 63 6f 73 72 75 6d 6f |w "www.m|acosrumo|
|00000c20| 72 73 2e 63 6f 6d 2f 22 | 30 50 6f 70 75 70 4d 65 |rs.com/"|0PopupMe|
|00000c30| 6e 75 31 2e 41 64 64 52 | 6f 77 20 22 77 77 77 2e |nu1.AddR|ow "www.|
|00000c40| 6d 61 63 61 64 64 69 63 | 74 2e 63 6f 6d 2f 69 6e |macaddic|t.com/in|
|00000c50| 64 65 78 2e 68 74 6d 6c | 22 35 50 6f 70 75 70 4d |dex.html|"5PopupM|
|00000c60| 65 6e 75 31 2e 41 64 64 | 52 6f 77 20 22 71 75 6f |enu1.Add|Row "quo|
|00000c70| 74 65 2e 79 61 68 6f 6f | 2e 63 6f 6d 2f 71 75 6f |te.yahoo|.com/quo|
|00000c80| 74 65 3f 73 3d 41 50 50 | 4c 26 64 3d 76 31 22 2d |te?s=APP|L&d=v1"-|
|00000c90| 50 6f 70 75 70 4d 65 6e | 75 31 2e 41 64 64 52 6f |PopupMen|u1.AddRo|
|00000ca0| 77 20 22 77 77 77 2e 6e | 64 2e 65 64 75 2f 7e 6a |w "www.n|d.edu/~j|
|00000cb0| 76 61 6e 64 65 72 6b 2f | 72 62 6d 2f 22 17 50 6f |vanderk/|rbm/".Po|
|00000cc0| 70 75 70 4d 65 6e 75 31 | 2e 41 64 64 53 65 70 61 |pupMenu1|.AddSepa|
|00000cd0| 72 61 74 6f 72 3b 50 6f | 70 75 70 4d 65 6e 75 31 |rator;Po|pupMenu1|
|00000ce0| 2e 41 64 64 52 6f 77 20 | 22 77 77 77 2e 6e 64 2e |.AddRow |"www.nd.|
|00000cf0| 65 64 75 2f 7e 6a 76 61 | 6e 64 65 72 6b 2f 72 62 |edu/~jva|nderk/rb|
|00000d00| 6d 2f 37 2d 39 38 2f 63 | 6f 76 65 72 2e 4a 50 47 |m/7-98/c|over.JPG|
|00000d10| 22 3b 50 6f 70 75 70 4d | 65 6e 75 31 2e 41 64 64 |";PopupM|enu1.Add|
|00000d20| 52 6f 77 20 22 77 77 77 | 2e 6e 64 2e 65 64 75 2f |Row "www|.nd.edu/|
|00000d30| 7e 6a 76 61 6e 64 65 72 | 6b 2f 72 62 6d 2f 38 2d |~jvander|k/rbm/8-|
|00000d40| 39 38 2f 63 6f 76 65 72 | 2e 6a 70 67 22 3c 50 6f |98/cover|.jpg"<Po|
|00000d50| 70 75 70 4d 65 6e 75 31 | 2e 41 64 64 52 6f 77 20 |pupMenu1|.AddRow |
|00000d60| 22 77 77 77 2e 6e 64 2e | 65 64 75 2f 7e 6a 76 61 |"www.nd.|edu/~jva|
|00000d70| 6e 64 65 72 6b 2f 72 62 | 6d 2f 39 2d 39 38 2f 63 |nderk/rb|m/9-98/c|
|00000d80| 6f 76 65 72 2e 6a 70 65 | 67 22 38 50 6f 70 75 70 |over.jpe|g"8Popup|
|00000d90| 4d 65 6e 75 31 2e 41 64 | 64 52 6f 77 20 22 77 77 |Menu1.Ad|dRow "ww|
|00000da0| 77 2e 6e 64 2e 65 64 75 | 2f 7e 6a 76 61 6e 64 65 |w.nd.edu|/~jvande|
|00000db0| 72 6b 2f 6d 61 63 70 69 | 63 73 2f 6d 77 6d 2e 67 |rk/macpi|cs/mwm.g|
|00000dc0| 69 66 22 a9 01 50 6f 70 | 75 70 4d 65 6e 75 31 2e |if"..Pop|upMenu1.|
|00000dd0| 41 64 64 52 6f 77 20 22 | 68 74 74 70 3a 2f 2f 77 |AddRow "|http://w|
|00000de0| 77 77 2e 66 72 65 65 72 | 65 61 6c 74 69 6d 65 2e |ww.freer|ealtime.|
|00000df0| 63 6f 6d 3a 38 30 30 30 | 2f 71 75 6f 74 65 73 3f |com:8000|/quotes?|
|00000e00| 73 79 6d 62 6f 6c 3d 41 | 41 50 4c 26 61 63 74 69 |symbol=A|APL&acti|
|00000e10| 6f 6e 3d 47 65 74 2b 49 | 74 25 32 31 26 74 79 70 |on=Get+I|t%21&typ|
|00000e20| 65 3d 42 61 73 69 63 2b | 51 75 6f 74 65 22 07 45 |e=Basic+|Quote".E|
|00000e30| 6e 64 20 53 75 62 03 0c | 46 69 6c 65 50 61 67 65 |nd Sub..|FilePage|
|00000e40| 49 6e 66 6f 07 0b 07 0b | 09 1a 46 75 6e 63 74 69 |Info....|..Functi|
|00000e50| 6f 6e 20 41 63 74 69 6f | 6e 20 41 73 20 42 6f 6f |on Actio|n As Boo|
|00000e60| 6c 65 61 6e 1e 44 69 6d | 20 44 20 61 73 20 64 69 |lean.Dim| D as di|
|00000e70| 61 6c 6f 67 32 2c 20 49 | 20 61 73 20 69 6e 74 65 |alog2, I| as inte|
|00000e80| 67 65 72 0d 64 3d 6e 65 | 77 20 64 69 61 6c 6f 67 |ger.d=ne|w dialog|
|00000e90| 32 29 46 6f 72 20 49 20 | 3d 20 31 20 74 6f 20 75 |2)For I |= 1 to u|
|00000ea0| 62 6f 75 6e 64 28 68 74 | 74 70 53 6f 63 6b 65 74 |bound(ht|tpSocket|
|00000eb0| 2e 48 65 61 64 65 72 4e | 61 6d 29 29 64 2e 4c 69 |.HeaderN|am))d.Li|
|00000ec0| 73 74 42 6f 78 31 2e 41 | 64 64 52 6f 77 20 68 74 |stBox1.A|ddRow ht|
|00000ed0| 74 70 53 6f 63 6b 65 74 | 2e 48 65 61 64 65 72 4e |tpSocket|.HeaderN|
|00000ee0| 61 6d 28 49 29 82 01 64 | 2e 4c 69 73 74 42 6f 78 |am(I)..d|.ListBox|
|00000ef0| 31 2e 43 65 6c 6c 28 64 | 2e 4c 69 73 74 42 6f 78 |1.Cell(d|.ListBox|
|00000f00| 31 2e 4c 69 73 74 43 4f | 75 6e 74 2d 31 2c 20 31 |1.ListCO|unt-1, 1|
|00000f10| 29 3d 68 74 74 70 53 6f | 63 6b 65 74 2e 48 65 61 |)=httpSo|cket.Hea|
|00000f20| 64 65 72 56 61 6c 28 49 | 29 04 6e 65 78 74 0b 64 |derVal(I|).next.d|
|00000f30| 2e 73 68 6f 77 6d 6f 64 | 61 6c 0c 45 6e 64 20 46 |.showmod|al.End F|
|00000f40| 75 6e 63 74 69 6f 6e 0e | 46 69 6c 65 53 75 62 6d |unction.|FileSubm|
|00000f50| 69 74 46 6f 72 6d 03 06 | 03 06 05 1a 46 75 6e 63 |itForm..|....Func|
|00000f60| 74 69 6f 6e 20 41 63 74 | 69 6f 6e 20 41 73 20 42 |tion Act|ion As B|
|00000f70| 6f 6f 6c 65 61 6e 10 44 | 69 6d 20 64 20 61 73 20 |oolean.D|im d as |
|00000f80| 64 69 61 6c 6f 67 35 0d | 64 3d 6e 65 77 20 64 69 |dialog5.|d=new di|
|00000f90| 61 6c 6f 67 35 06 64 2e | 73 68 6f 77 0c 45 6e 64 |alog5.d.|show.End|
|00000fa0| 20 46 75 6e 63 74 69 6f | 6e 0d 46 69 6c 65 54 72 | Functio|n.FileTr|
|00000fb0| 61 6e 73 6c 61 74 65 03 | 06 03 06 05 1a 46 75 6e |anslate.|.....Fun|
|00000fc0| 63 74 69 6f 6e 20 41 63 | 74 69 6f 6e 20 41 73 20 |ction Ac|tion As |
|00000fd0| 42 6f 6f 6c 65 61 6e 10 | 64 69 6d 20 64 20 61 73 |Boolean.|dim d as|
|00000fe0| 20 64 69 61 6c 6f 67 36 | 0d 64 3d 6e 65 77 20 64 | dialog6|.d=new d|
|00000ff0| 69 61 6c 6f 67 36 06 64 | 2e 73 68 6f 77 0c 45 6e |ialog6.d|.show.En|
|00001000| 64 20 46 75 6e 63 74 69 | 6f 6e 0d 05 00 00 80 02 |d Functi|on......|
|00001010| 09 45 64 69 74 46 69 65 | 6c 64 00 00 00 01 07 4b |.EditFie|ld.....K|
|00001020| 65 79 44 6f 77 6e 01 00 | 01 00 03 2a 46 75 6e 63 |eyDown..|...*Func|
|00001030| 74 69 6f 6e 20 4b 65 79 | 44 6f 77 6e 28 4b 65 79 |tion Key|Down(Key|
|00001040| 20 41 73 20 53 74 72 69 | 6e 67 29 20 41 73 20 42 | As Stri|ng) As B|
|00001050| 6f 6f 6c 65 61 6e 00 0c | 45 6e 64 20 46 75 6e 63 |oolean..|End Func|
|00001060| 74 69 6f 6e 00 05 00 00 | ac 01 0a 50 75 73 68 42 |tion....|...PushB|
|00001070| 75 74 74 6f 6e 00 00 00 | 01 06 41 63 74 69 6f 6e |utton...|..Action|
|00001080| 24 06 24 06 26 0c 53 75 | 62 20 41 63 74 69 6f 6e |$.$.&.Su|b Action|
|00001090| 28 29 13 64 69 6d 20 66 | 20 61 73 20 66 6f 6c 64 |().dim f| as fold|
|000010a0| 65 72 69 74 65 6d 00 23 | 2f 2f 20 57 68 61 74 20 |eritem.#|// What |
|000010b0| 66 69 6c 65 20 73 68 6f | 75 6c 64 20 69 74 20 62 |file sho|uld it b|
|000010c0| 65 20 73 61 76 65 64 20 | 74 6f 3f 23 66 3d 47 65 |e saved |to?#f=Ge|
|000010d0| 74 53 61 76 65 46 6f 6c | 64 65 72 49 74 65 6d 28 |tSaveFol|derItem(|
|000010e0| 22 54 65 78 74 22 2c 20 | 22 46 69 6c 65 22 29 00 |"Text", |"File").|
|000010f0| 25 2f 2f 20 4d 61 6b 65 | 20 73 75 72 65 20 75 73 |%// Make| sure us|
|00001100| 65 72 20 64 69 64 6e 27 | 74 20 63 6c 69 63 6b 20 |er didn'|t click |
|00001110| 63 61 6e 63 65 6c 0d 69 | 66 20 66 3d 6e 69 6c 20 |cancel.i|f f=nil |
|00001120| 74 68 65 6e 06 72 65 74 | 75 72 6e 06 65 6e 64 20 |then.ret|urn.end |
|00001130| 69 66 00 31 2f 2f 20 49 | 73 20 61 20 70 72 6f 78 |if.1// I|s a prox|
|00001140| 79 20 65 6e 61 62 6c 65 | 64 3f 20 53 65 74 20 69 |y enable|d? Set i|
|00001150| 74 20 75 70 20 69 66 20 | 74 68 65 72 65 20 69 73 |t up if |there is|
|00001160| 20 6f 6e 65 2e 16 69 66 | 20 43 68 6b 50 72 6f 78 | one..if| ChkProx|
|00001170| 79 2e 56 61 6c 75 65 20 | 74 68 65 6e 23 69 66 20 |y.Value |then#if |
|00001180| 49 6e 73 74 72 28 54 78 | 74 50 72 6f 78 79 2e 54 |Instr(Tx|tProxy.T|
|00001190| 65 78 74 2c 20 22 3a 22 | 29 3e 30 20 74 68 65 6e |ext, ":"|)>0 then|
|000011a0| 36 68 74 74 70 53 6f 63 | 6b 65 74 2e 50 72 6f 78 |6httpSoc|ket.Prox|
|000011b0| 79 53 65 72 76 65 72 3d | 4e 74 68 46 69 65 6c 64 |yServer=|NthField|
|000011c0| 28 54 78 74 50 72 6f 78 | 79 2e 54 65 78 74 2c 20 |(TxtProx|y.Text, |
|000011d0| 22 3a 22 2c 20 31 29 39 | 68 74 74 70 53 6f 63 6b |":", 1)9|httpSock|
|000011e0| 65 74 2e 50 72 6f 78 79 | 50 6f 72 74 3d 76 61 6c |et.Proxy|Port=val|
|000011f0| 28 4e 74 68 46 69 65 6c | 64 28 54 78 74 50 72 6f |(NthFiel|d(TxtPro|
|00001200| 78 79 2e 54 65 78 74 2c | 20 22 3a 22 2c 20 32 29 |xy.Text,| ":", 2)|
|00001210| 29 04 65 6c 73 65 24 68 | 74 74 70 53 6f 63 6b 65 |).else$h|ttpSocke|
|00001220| 74 2e 50 72 6f 78 79 53 | 65 72 76 65 72 3d 54 78 |t.ProxyS|erver=Tx|
|00001230| 74 50 72 6f 78 79 2e 74 | 65 78 74 16 68 74 74 70 |tProxy.t|ext.http|
|00001240| 53 6f 63 6b 65 74 2e 50 | 72 6f 78 79 50 6f 72 74 |Socket.P|roxyPort|
|00001250| 3d 30 06 65 6e 64 20 69 | 66 04 65 6c 73 65 19 68 |=0.end i|f.else.h|
|00001260| 74 74 70 53 6f 63 6b 65 | 74 2e 50 72 6f 78 79 53 |ttpSocke|t.ProxyS|
|00001270| 65 72 76 65 72 3d 22 22 | 06 65 6e 64 20 69 66 00 |erver=""|.end if.|
|00001280| 13 2f 2f 20 42 65 61 75 | 74 69 66 79 20 74 68 65 |.// Beau|tify the|
|00001290| 20 55 52 4c 2b 2f 2f 20 | 68 74 74 70 53 6f 63 6b | URL+// |httpSock|
|000012a0| 65 74 20 64 6f 65 73 6e | 27 74 20 63 61 72 65 20 |et doesn|'t care |
|000012b0| 68 6f 77 20 6e 69 63 65 | 20 74 68 65 20 55 52 4c |how nice| the URL|
|000012c0| 2b 2f 2f 20 69 73 2c 20 | 62 75 74 20 69 74 20 6d |+// is, |but it m|
|000012d0| 61 6b 65 73 20 74 68 65 | 20 65 64 69 74 66 69 65 |akes the| editfie|
|000012e0| 6c 64 20 68 61 76 65 20 | 74 68 61 74 1f 2f 2f 20 |ld have |that.// |
|000012f0| 22 57 65 62 20 42 72 6f | 77 73 65 72 22 2d 65 73 |"Web Bro|wser"-es|
|00001300| 71 75 65 20 66 65 65 6c | 69 6e 67 2e 35 45 64 69 |que feel|ing.5Edi|
|00001310| 74 46 49 65 6c 64 31 2e | 54 65 78 74 3d 68 74 74 |tFIeld1.|Text=htt|
|00001320| 70 53 6f 63 6b 65 74 2e | 46 6f 72 6d 61 74 55 52 |pSocket.|FormatUR|
|00001330| 4c 28 45 64 69 74 46 69 | 65 6c 64 31 2e 54 65 78 |L(EditFi|eld1.Tex|
|00001340| 74 29 00 15 2f 2f 20 42 | 65 67 69 6e 20 74 68 65 |t)..// B|egin the|
|00001350| 20 64 6f 77 6e 6c 6f 61 | 64 1e 69 66 20 6e 6f 74 | downloa|d.if not|
|00001360| 20 6b 65 79 62 6f 61 72 | 64 2e 6f 70 74 69 6f 6e | keyboar|d.option|
|00001370| 4b 65 79 20 74 68 65 6e | 26 68 74 74 70 73 6f 63 |Key then|&httpsoc|
|00001380| 6b 65 74 2e 44 6f 77 6e | 6c 6f 61 64 20 45 64 69 |ket.Down|load Edi|
|00001390| 74 46 69 65 6c 64 31 2e | 74 65 78 74 2c 20 66 04 |tField1.|text, f.|
|000013a0| 65 6c 73 65 35 45 64 69 | 74 46 69 65 6c 64 31 2e |else5Edi|tField1.|
|000013b0| 53 65 6c 53 74 61 72 74 | 3d 69 6e 73 74 72 28 45 |SelStart|=instr(E|
|000013c0| 64 69 74 46 69 65 6c 64 | 31 2e 54 65 78 74 2c 20 |ditField|1.Text, |
|000013d0| 22 66 65 61 74 75 72 65 | 22 29 16 45 64 69 74 46 |"feature|").EditF|
|000013e0| 69 65 6c 64 31 2e 53 65 | 6c 4c 65 6e 67 74 68 3d |ield1.Se|lLength=|
|000013f0| 37 06 65 6e 64 20 69 66 | 07 45 6e 64 20 53 75 62 |7.end if|.End Sub|
|00001400| 00 05 00 00 80 02 09 45 | 64 69 74 46 69 65 6c 64 |.......E|ditField|
|00001410| 00 00 00 00 00 05 00 00 | b0 01 0a 53 74 61 74 69 |........|...Stati|
|00001420| 63 54 65 78 74 00 00 00 | 00 00 05 00 00 b0 01 0a |cText...|........|
|00001430| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 00 05 |StaticTe|xt......|
|00001440| 00 00 ac 01 0a 50 75 73 | 68 42 75 74 74 6f 6e 00 |.....Pus|hButton.|
|00001450| 00 00 01 06 41 63 74 69 | 6f 6e 1c 06 1c 06 1e 0c |....Acti|on......|
|00001460| 53 75 62 20 41 63 74 69 | 6f 6e 28 29 00 25 2f 2f |Sub Acti|on().%//|
|00001470| 20 49 66 20 74 68 65 72 | 65 27 73 20 61 20 70 72 | If ther|e's a pr|
|00001480| 6f 78 79 2c 20 74 68 65 | 6e 20 73 65 74 20 69 74 |oxy, the|n set it|
|00001490| 20 75 70 16 69 66 20 43 | 68 6b 50 72 6f 78 79 2e | up.if C|hkProxy.|
|000014a0| 56 61 6c 75 65 20 74 68 | 65 6e 23 69 66 20 49 6e |Value th|en#if In|
|000014b0| 73 74 72 28 54 78 74 50 | 72 6f 78 79 2e 54 65 78 |str(TxtP|roxy.Tex|
|000014c0| 74 2c 20 22 3a 22 29 3e | 30 20 74 68 65 6e 36 68 |t, ":")>|0 then6h|
|000014d0| 74 74 70 53 6f 63 6b 65 | 74 2e 50 72 6f 78 79 53 |ttpSocke|t.ProxyS|
|000014e0| 65 72 76 65 72 3d 4e 74 | 68 46 69 65 6c 64 28 54 |erver=Nt|hField(T|
|000014f0| 78 74 50 72 6f 78 79 2e | 54 65 78 74 2c 20 22 3a |xtProxy.|Text, ":|
|00001500| 22 2c 20 31 29 39 68 74 | 74 70 53 6f 63 6b 65 74 |", 1)9ht|tpSocket|
|00001510| 2e 50 72 6f 78 79 50 6f | 72 74 3d 76 61 6c 28 4e |.ProxyPo|rt=val(N|
|00001520| 74 68 46 69 65 6c 64 28 | 54 78 74 50 72 6f 78 79 |thField(|TxtProxy|
|00001530| 2e 54 65 78 74 2c 20 22 | 3a 22 2c 20 32 29 29 04 |.Text, "|:", 2)).|
|00001540| 65 6c 73 65 24 68 74 74 | 70 53 6f 63 6b 65 74 2e |else$htt|pSocket.|
|00001550| 50 72 6f 78 79 53 65 72 | 76 65 72 3d 54 78 74 50 |ProxySer|ver=TxtP|
|00001560| 72 6f 78 79 2e 74 65 78 | 74 16 68 74 74 70 53 6f |roxy.tex|t.httpSo|
|00001570| 63 6b 65 74 2e 50 72 6f | 78 79 50 6f 72 74 3d 30 |cket.Pro|xyPort=0|
|00001580| 06 65 6e 64 20 69 66 04 | 65 6c 73 65 19 68 74 74 |.end if.|else.htt|
|00001590| 70 53 6f 63 6b 65 74 2e | 50 72 6f 78 79 53 65 72 |pSocket.|ProxySer|
|000015a0| 76 65 72 3d 22 22 06 65 | 6e 64 20 69 66 00 00 14 |ver="".e|nd if...|
|000015b0| 2f 2f 20 43 6c 65 61 72 | 20 74 68 65 20 64 69 73 |// Clear| the dis|
|000015c0| 70 6c 61 79 12 45 64 69 | 74 46 69 65 6c 64 32 2e |play.Edi|tField2.|
|000015d0| 54 65 78 74 3d 22 22 00 | 13 2f 2f 20 42 65 61 75 |Text="".|.// Beau|
|000015e0| 74 69 66 79 20 74 68 65 | 20 55 52 4c 2b 2f 2f 20 |tify the| URL+// |
|000015f0| 68 74 74 70 53 6f 63 6b | 65 74 20 64 6f 65 73 6e |httpSock|et doesn|
|00001600| 27 74 20 63 61 72 65 20 | 68 6f 77 20 6e 69 63 65 |'t care |how nice|
|00001610| 20 74 68 65 20 55 52 4c | 2b 2f 2f 20 69 73 2c 20 | the URL|+// is, |
|00001620| 62 75 74 20 69 74 20 6d | 61 6b 65 73 20 74 68 65 |but it m|akes the|
|00001630| 20 65 64 69 74 66 69 65 | 6c 64 20 68 61 76 65 20 | editfie|ld have |
|00001640| 74 68 61 74 1f 2f 2f 20 | 22 57 65 62 20 42 72 6f |that.// |"Web Bro|
|00001650| 77 73 65 72 22 2d 65 73 | 71 75 65 20 66 65 65 6c |wser"-es|que feel|
|00001660| 69 6e 67 2e 35 45 64 69 | 74 46 49 65 6c 64 31 2e |ing.5Edi|tFIeld1.|
|00001670| 54 65 78 74 3d 68 74 74 | 70 53 6f 63 6b 65 74 2e |Text=htt|pSocket.|
|00001680| 46 6f 72 6d 61 74 55 52 | 4c 28 45 64 69 74 46 69 |FormatUR|L(EditFi|
|00001690| 65 6c 64 31 2e 54 65 78 | 74 29 00 0f 2f 2f 20 47 |eld1.Tex|t)..// G|
|000016a0| 65 74 20 74 68 65 20 66 | 69 6c 65 1e 69 66 20 6e |et the f|ile.if n|
|000016b0| 6f 74 20 6b 65 79 62 6f | 61 72 64 2e 6f 70 74 69 |ot keybo|ard.opti|
|000016c0| 6f 6e 4b 65 79 20 74 68 | 65 6e 22 68 74 74 70 73 |onKey th|en"https|
|000016d0| 6f 63 6b 65 74 2e 47 65 | 74 46 69 6c 65 20 45 64 |ocket.Ge|tFile Ed|
|000016e0| 69 74 46 69 65 6c 64 31 | 2e 74 65 78 74 06 65 6e |itField1|.text.en|
|000016f0| 64 20 69 66 07 45 6e 64 | 20 53 75 62 00 05 00 00 |d if.End| Sub....|
|00001700| a8 01 09 50 6f 70 75 70 | 4d 65 6e 75 00 00 00 02 |...Popup|Menu....|
|00001710| 06 43 68 61 6e 67 65 01 | 17 01 17 03 0c 53 75 62 |.Change.|.....Sub|
|00001720| 20 43 68 61 6e 67 65 28 | 29 17 45 64 69 74 46 69 | Change(|).EditFi|
|00001730| 65 6c 64 31 2e 54 65 78 | 74 3d 6d 65 2e 54 65 78 |eld1.Tex|t=me.Tex|
|00001740| 74 07 45 6e 64 20 53 75 | 62 09 4d 6f 75 73 65 4d |t.End Su|b.MouseM|
|00001750| 6f 76 65 01 00 01 00 03 | 29 53 75 62 20 4d 6f 75 |ove.....|)Sub Mou|
|00001760| 73 65 4d 6f 76 65 28 58 | 20 41 73 20 49 6e 74 65 |seMove(X| As Inte|
|00001770| 67 65 72 2c 20 59 20 41 | 73 20 49 6e 74 65 67 65 |ger, Y A|s Intege|
|00001780| 72 29 00 07 45 6e 64 20 | 53 75 62 00 05 00 00 9c |r)..End |Sub.....|
|00001790| 01 0b 50 72 6f 67 72 65 | 73 73 42 61 72 00 00 00 |..Progre|ssBar...|
|000017a0| 00 00 05 00 00 a8 03 0a | 68 74 74 70 53 6f 63 6b |........|httpSock|
|000017b0| 65 74 00 00 00 09 09 43 | 6f 6e 6e 65 63 74 65 64 |et.....C|onnected|
|000017c0| 01 1e 01 1e 03 0f 53 75 | 62 20 43 6f 6e 6e 65 63 |......Su|b Connec|
|000017d0| 74 65 64 28 29 1e 53 74 | 61 74 69 63 54 65 78 74 |ted().St|aticText|
|000017e0| 32 2e 54 65 78 74 3d 22 | 63 6f 6e 6e 6e 65 63 74 |2.Text="|connnect|
|000017f0| 65 64 2e 22 07 45 6e 64 | 20 53 75 62 0e 50 61 73 |ed.".End| Sub.Pas|
|00001800| 73 77 6f 72 64 4e 65 65 | 64 65 64 01 15 01 15 03 |swordNee|ded.....|
|00001810| 32 46 75 6e 63 74 69 6f | 6e 20 50 61 73 73 77 6f |2Functio|n Passwo|
|00001820| 72 64 4e 65 65 64 65 64 | 28 72 65 61 6c 6d 20 61 |rdNeeded|(realm a|
|00001830| 73 20 73 74 72 69 6e 67 | 29 20 41 73 20 73 74 72 |s string|) As str|
|00001840| 69 6e 67 15 72 65 74 75 | 72 6e 20 47 65 74 50 61 |ing.retu|rn GetPa|
|00001850| 73 73 28 72 65 61 6c 6d | 29 0c 45 6e 64 20 46 75 |ss(realm|).End Fu|
|00001860| 6e 63 74 69 6f 6e 04 4f | 70 65 6e 01 22 01 22 03 |nction.O|pen.".".|
|00001870| 0a 53 75 62 20 4f 70 65 | 6e 28 29 22 6d 65 2e 53 |.Sub Ope|n()"me.S|
|00001880| 65 74 43 6c 69 65 6e 74 | 4e 61 6d 65 20 22 68 74 |etClient|Name "ht|
|00001890| 74 70 53 6f 63 6b 65 74 | 22 2c 20 31 2e 35 07 45 |tpSocket|", 1.5.E|
|000018a0| 6e 64 20 53 75 62 0b 4c | 6f 67 69 6e 46 61 69 6c |nd Sub.L|oginFail|
|000018b0| 65 64 06 0c 06 0c 08 2e | 46 75 6e 63 74 69 6f 6e |ed......|Function|
|000018c0| 20 4c 6f 67 69 6e 46 61 | 69 6c 65 64 28 55 52 4c | LoginFa|iled(URL|
|000018d0| 20 61 73 20 73 74 72 69 | 6e 67 29 20 41 73 20 62 | as stri|ng) As b|
|000018e0| 6f 6f 6c 65 61 6e 10 64 | 69 6d 20 64 20 61 73 20 |oolean.d|im d as |
|000018f0| 64 69 61 6c 6f 67 34 0d | 64 3d 6e 65 77 20 64 69 |dialog4.|d=new di|
|00001900| 61 6c 6f 67 34 0d 64 2e | 74 61 72 67 65 74 3d 73 |alog4.d.|target=s|
|00001910| 65 6c 66 0b 64 2e 73 68 | 6f 77 6d 6f 64 61 6c 00 |elf.d.sh|owmodal.|
|00001920| 0c 72 65 74 75 72 6e 20 | 72 65 74 72 79 0c 45 6e |.return |retry.En|
|00001930| 64 20 46 75 6e 63 74 69 | 6f 6e 08 4d 6f 72 65 44 |d Functi|on.MoreD|
|00001940| 61 74 61 11 06 11 06 13 | 8d 01 53 75 62 20 4d 6f |ata.....|..Sub Mo|
|00001950| 72 65 44 61 74 61 28 61 | 6d 74 20 61 73 20 69 6e |reData(a|mt as in|
|00001960| 74 65 67 65 72 2c 20 74 | 6f 74 61 6c 20 61 73 20 |teger, t|otal as |
|00001970| 69 6e 74 65 67 65 72 2c | 20 70 63 74 20 61 73 20 |integer,| pct as |
|00001980| 73 69 6e 67 6c 65 2c 20 | 62 70 73 20 61 73 20 69 |single, |bps as i|
|00001990| 6e 74 65 67 65 72 29 11 | 64 69 6d 20 74 78 74 20 |nteger).|dim txt |
|000019a0| 61 73 20 73 74 72 69 6e | 67 0f 69 66 20 54 6f 74 |as strin|g.if Tot|
|000019b0| 61 6c 3e 31 20 74 68 65 | 6e 2f 74 78 74 3d 6d 65 |al>1 the|n/txt=me|
|000019c0| 2e 46 6f 72 6d 61 74 53 | 69 7a 65 28 61 6d 74 29 |.FormatS|ize(amt)|
|000019d0| 2b 22 2f 22 2b 6d 65 2e | 46 6f 72 6d 61 74 53 69 |+"/"+me.|FormatSi|
|000019e0| 7a 65 28 74 6f 74 61 6c | 29 25 74 78 74 3d 74 78 |ze(total|)%txt=tx|
|000019f0| 74 2b 22 20 28 22 2b 73 | 74 72 28 66 6c 6f 6f 72 |t+" ("+s|tr(floor|
|00001a00| 28 50 63 74 2a 31 30 30 | 29 29 2b 22 25 29 22 29 |(Pct*100|))+"%)")|
|00001a10| 74 78 74 3d 74 78 74 2b | 22 20 61 74 20 22 2b 6d |txt=txt+|" at "+m|
|00001a20| 65 2e 46 6f 72 6d 61 74 | 53 69 7a 65 28 62 70 73 |e.Format|Size(bps|
|00001a30| 29 2b 22 2f 73 65 63 2e | 22 14 53 74 61 74 69 63 |)+"/sec.|".Static|
|00001a40| 54 65 78 74 32 2e 54 65 | 78 74 3d 74 78 74 13 69 |Text2.Te|xt=txt.i|
|00001a50| 66 20 74 6f 74 61 6c 3c | 32 35 30 30 30 20 74 68 |f total<|25000 th|
|00001a60| 65 6e 1a 50 72 6f 67 72 | 65 73 73 42 61 72 31 2e |en.Progr|essBar1.|
|00001a70| 4d 61 78 69 6d 75 6d 3d | 74 6f 74 61 6c 16 50 72 |Maximum=|total.Pr|
|00001a80| 6f 67 72 65 73 73 42 61 | 72 31 2e 56 61 6c 75 65 |ogressBa|r1.Value|
|00001a90| 3d 61 6d 74 04 65 6c 73 | 65 1e 50 72 6f 67 72 65 |=amt.els|e.Progre|
|00001aa0| 73 73 42 61 72 31 2e 4d | 61 78 69 6d 75 6d 3d 74 |ssBar1.M|aximum=t|
|00001ab0| 6f 74 61 6c 2f 31 30 30 | 1a 50 72 6f 67 72 65 73 |otal/100|.Progres|
|00001ac0| 73 42 61 72 31 2e 56 61 | 6c 75 65 3d 61 6d 74 2f |sBar1.Va|lue=amt/|
|00001ad0| 31 30 30 06 65 6e 64 20 | 69 66 04 65 6c 73 65 85 |100.end |if.else.|
|00001ae0| 01 53 74 61 74 69 63 54 | 65 78 74 32 2e 54 65 78 |.StaticT|ext2.Tex|
|00001af0| 74 3d 6d 65 2e 46 6f 72 | 6d 61 74 53 69 7a 65 28 |t=me.For|matSize(|
|00001b00| 61 6d 74 29 2b 22 20 61 | 74 20 22 2b 6d 65 2e 46 |amt)+" a|t "+me.F|
|00001b10| 6f 72 6d 61 74 53 69 7a | 65 28 62 70 73 29 2b 22 |ormatSiz|e(bps)+"|
|00001b20| 2f 73 65 63 2e 22 16 50 | 72 6f 67 72 65 73 73 42 |/sec.".P|rogressB|
|00001b30| 61 72 31 2e 4d 61 78 69 | 6d 75 6d 3d 30 06 65 6e |ar1.Maxi|mum=0.en|
|00001b40| 64 20 69 66 07 45 6e 64 | 20 53 75 62 0f 4c 6f 63 |d if.End| Sub.Loc|
|00001b50| 61 74 69 6f 6e 43 68 61 | 6e 67 65 64 01 16 01 16 |ationCha|nged....|
|00001b60| 03 25 53 75 62 20 4c 6f | 63 61 74 69 6f 6e 43 68 |.%Sub Lo|cationCh|
|00001b70| 61 6e 67 65 64 28 6e 65 | 77 4c 6f 63 20 61 73 20 |anged(ne|wLoc as |
|00001b80| 73 74 72 69 6e 67 29 16 | 45 64 69 74 46 69 65 6c |string).|EditFiel|
|00001b90| 64 31 2e 54 65 78 74 3d | 6e 65 77 6c 6f 63 07 45 |d1.Text=|newloc.E|
|00001ba0| 6e 64 20 53 75 62 09 43 | 61 6e 63 65 6c 6c 65 64 |nd Sub.C|ancelled|
|00001bb0| 03 14 03 14 05 0f 53 75 | 62 20 43 61 6e 63 65 6c |......Su|b Cancel|
|00001bc0| 6c 65 64 28 29 25 53 74 | 61 74 69 63 54 65 78 74 |led()%St|aticText|
|00001bd0| 32 2e 54 65 78 74 3d 22 | 44 6f 77 6e 6c 6f 61 64 |2.Text="|Download|
|00001be0| 20 63 61 6e 63 65 6c 6c | 65 64 22 17 50 72 6f 67 | cancell|ed".Prog|
|00001bf0| 72 65 73 73 42 61 72 31 | 2e 4d 61 78 69 6d 75 6d |ressBar1|.Maximum|
|00001c00| 3d 31 30 14 50 72 6f 67 | 72 65 73 73 42 61 72 31 |=10.Prog|ressBar1|
|00001c10| 2e 56 61 6c 75 65 3d 30 | 07 45 6e 64 20 53 75 62 |.Value=0|.End Sub|
|00001c20| 05 45 72 72 6f 72 03 14 | 03 14 05 29 53 75 62 20 |.Error..|...)Sub |
|00001c30| 45 72 72 6f 72 28 63 6f | 64 65 20 61 73 20 69 6e |Error(co|de as in|
|00001c40| 74 65 67 65 72 2c 20 6d | 73 67 20 61 73 20 73 74 |teger, m|sg as st|
|00001c50| 72 69 6e 67 29 26 6d 73 | 67 42 6f 78 20 22 45 72 |ring)&ms|gBox "Er|
|00001c60| 72 6f 72 3a 20 22 2b 73 | 74 72 28 63 6f 64 65 29 |ror: "+s|tr(code)|
|00001c70| 2b 63 68 72 28 31 33 29 | 2b 6d 73 67 17 50 72 6f |+chr(13)|+msg.Pro|
|00001c80| 67 72 65 73 73 42 61 72 | 31 2e 4d 61 78 69 6d 75 |gressBar|1.Maximu|
|00001c90| 6d 3d 31 30 14 50 72 6f | 67 72 65 73 73 42 61 72 |m=10.Pro|gressBar|
|00001ca0| 31 2e 56 61 6c 75 65 3d | 30 07 45 6e 64 20 53 75 |1.Value=|0.End Su|
|00001cb0| 62 0a 44 4c 46 69 6e 69 | 73 68 65 64 16 14 16 14 |b.DLFini|shed....|
|00001cc0| 18 92 01 53 75 62 20 44 | 4c 46 69 6e 69 73 68 65 |...Sub D|LFinishe|
|00001cd0| 64 28 66 20 61 73 20 66 | 6f 6c 64 65 72 69 74 65 |d(f as f|olderite|
|00001ce0| 6d 2c 20 74 78 74 20 61 | 73 20 73 74 72 69 6e 67 |m, txt a|s string|
|00001cf0| 2c 20 70 69 63 20 61 73 | 20 70 69 63 74 75 72 65 |, pic as| picture|
|00001d00| 2c 20 66 69 6c 65 74 79 | 70 65 20 61 73 20 73 74 |, filety|pe as st|
|00001d10| 72 69 6e 67 29 10 64 69 | 6d 20 64 20 61 73 20 64 |ring).di|m d as d|
|00001d20| 69 61 6c 6f 67 31 1c 53 | 74 61 74 69 63 54 65 78 |ialog1.S|taticTex|
|00001d30| 74 32 2e 54 65 78 74 3d | 22 46 69 6e 69 73 68 65 |t2.Text=|"Finishe|
|00001d40| 64 21 22 07 27 72 65 74 | 75 72 6e 0f 69 66 20 70 |d!".'ret|urn.if p|
|00001d50| 69 63 3d 6e 69 6c 20 74 | 68 65 6e 20 69 66 20 6c |ic=nil t|hen if l|
|00001d60| 65 66 74 28 66 69 6c 65 | 74 79 70 65 2c 20 34 29 |eft(file|type, 4)|
|00001d70| 3d 22 74 65 78 74 22 20 | 74 68 65 6e 16 69 66 20 |="text" |then.if |
|00001d80| 6c 65 6e 28 74 78 74 29 | 3c 33 32 37 30 30 20 74 |len(txt)|<32700 t|
|00001d90| 68 65 6e 31 45 64 69 74 | 46 69 65 6c 64 32 2e 54 |hen1Edit|Field2.T|
|00001da0| 65 78 74 3d 72 65 70 6c | 61 63 65 41 6c 6c 28 74 |ext=repl|aceAll(t|
|00001db0| 78 74 2c 20 63 68 72 28 | 31 30 29 2c 20 63 68 72 |xt, chr(|10), chr|
|00001dc0| 28 31 33 29 29 06 65 6e | 64 20 69 66 13 65 6c 73 |(13)).en|d if.els|
|00001dd0| 65 69 66 20 74 78 74 3c | 3e 22 22 20 74 68 65 6e |eif txt<|>"" then|
|00001de0| 33 45 64 69 74 46 69 65 | 6c 64 32 2e 54 65 78 74 |3EditFie|ld2.Text|
|00001df0| 3d 22 55 6e 73 75 70 70 | 6f 72 74 65 64 20 66 6f |="Unsupp|orted fo|
|00001e00| 72 6d 61 74 20 28 22 2b | 66 69 6c 65 74 79 70 65 |rmat ("+|filetype|
|00001e10| 2b 22 29 22 12 65 6c 73 | 65 69 66 20 66 3c 3e 6e |+")".els|eif f<>n|
|00001e20| 69 6c 20 74 68 65 6e 84 | 01 45 64 69 74 46 69 65 |il then.|.EditFie|
|00001e30| 6c 64 32 2e 54 65 78 74 | 3d 22 54 68 65 20 66 69 |ld2.Text|="The fi|
|00001e40| 6c 65 20 68 61 73 20 62 | 65 65 6e 20 64 6f 77 6e |le has b|een down|
|00001e50| 6c 6f 61 64 65 64 20 74 | 6f 3a 20 22 20 2b 20 66 |loaded t|o: " + f|
|00001e60| 2e 41 62 73 6f 6c 75 74 | 65 50 61 74 68 06 65 6e |.Absolut|ePath.en|
|00001e70| 64 20 69 66 04 65 6c 73 | 65 0d 64 3d 6e 65 77 20 |d if.els|e.d=new |
|00001e80| 64 69 61 6c 6f 67 31 11 | 64 2e 57 69 64 74 68 3d |dialog1.|d.Width=|
|00001e90| 70 69 63 2e 57 69 64 74 | 68 13 64 2e 48 65 69 67 |pic.Widt|h.d.Heig|
|00001ea0| 68 74 3d 70 69 63 2e 48 | 65 69 67 68 74 0e 64 2e |ht=pic.H|eight.d.|
|00001eb0| 42 61 63 6b 44 72 6f 70 | 3d 70 69 63 06 64 2e 53 |BackDrop|=pic.d.S|
|00001ec0| 68 6f 77 06 65 6e 64 20 | 69 66 16 50 72 6f 67 72 |how.end |if.Progr|
|00001ed0| 65 73 73 42 61 72 31 2e | 4d 61 78 69 6d 75 6d 3d |essBar1.|Maximum=|
|00001ee0| 31 14 50 72 6f 67 72 65 | 73 73 42 61 72 31 2e 56 |1.Progre|ssBar1.V|
|00001ef0| 61 6c 75 65 3d 31 07 45 | 6e 64 20 53 75 62 00 05 |alue=1.E|nd Sub..|
|00001f00| 00 00 b0 01 0a 53 74 61 | 74 69 63 54 65 78 74 00 |.....Sta|ticText.|
|00001f10| 00 00 00 00 05 00 00 ac | 01 08 43 68 65 63 6b 42 |........|..CheckB|
|00001f20| 6f 78 00 00 00 00 00 05 | 00 00 80 02 09 45 64 69 |ox......|.....Edi|
|00001f30| 74 46 69 65 6c 64 00 00 | 00 00 00 05 00 00 ac 01 |tField..|........|
|00001f40| 0a 50 75 73 68 42 75 74 | 74 6f 6e 00 00 00 01 06 |.PushBut|ton.....|
|00001f50| 41 63 74 69 6f 6e 08 06 | 08 06 0a 0c 53 75 62 20 |Action..|....Sub |
|00001f60| 41 63 74 69 6f 6e 28 29 | 1e 69 66 20 6e 6f 74 20 |Action()|.if not |
|00001f70| 6b 65 79 62 6f 61 72 64 | 2e 6f 70 74 69 6f 6e 4b |keyboard|.optionK|
|00001f80| 65 79 20 74 68 65 6e 10 | 68 74 74 70 53 6f 63 6b |ey then.|httpSock|
|00001f90| 65 74 2e 43 4c 6f 73 65 | 16 50 72 6f 67 72 65 73 |et.CLose|.Progres|
|00001fa0| 73 42 61 72 31 2e 4d 61 | 78 69 6d 75 6d 3d 31 14 |sBar1.Ma|ximum=1.|
|00001fb0| 50 72 6f 67 72 65 73 73 | 42 61 72 31 2e 56 61 6c |Progress|Bar1.Val|
|00001fc0| 75 65 3d 31 1c 53 74 61 | 74 69 63 54 65 78 74 32 |ue=1.Sta|ticText2|
|00001fd0| 2e 54 65 78 74 3d 22 43 | 61 6e 63 65 6c 6c 65 64 |.Text="C|ancelled|
|00001fe0| 22 04 65 6c 73 65 39 54 | 78 74 50 72 6f 78 79 2e |".else9T|xtProxy.|
|00001ff0| 54 65 78 74 3d 68 74 74 | 70 53 6f 63 6b 65 74 2e |Text=htt|pSocket.|
|00002000| 46 6f 72 6d 61 74 53 69 | 7a 65 28 76 61 6c 28 45 |FormatSi|ze(val(E|
|00002010| 64 69 74 46 49 65 6c 64 | 31 2e 74 65 78 74 29 29 |ditFIeld|1.text))|
|00002020| 06 65 6e 64 20 69 66 07 | 45 6e 64 20 53 75 62 00 |.end if.|End Sub.|
|00002030| 0d 09 45 64 69 74 46 69 | 65 6c 64 1f 04 4e 61 6d |..EditFi|eld..Nam|
|00002040| 65 0a 45 64 69 74 46 69 | 65 6c 64 31 05 49 6e 64 |e.EditFi|eld1.Ind|
|00002050| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00002060| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00002070| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00002080| 02 34 34 03 54 6f 70 01 | 38 05 57 69 64 74 68 03 |.44.Top.|8.Width.|
|00002090| 34 33 36 06 48 65 69 67 | 68 74 02 32 32 0b 42 61 |436.Heig|ht.22.Ba|
|000020a0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|000020b0| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|000020c0| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|000020d0| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|000020e0| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|000020f0| 6b 42 6f 74 74 6f 6d 05 | 46 61 6c 73 65 08 54 65 |kBottom.|False.Te|
|00002100| 78 74 46 6f 6e 74 06 47 | 65 6e 65 76 61 08 54 65 |xtFont.G|eneva.Te|
|00002110| 78 74 53 69 7a 65 01 39 | 04 42 6f 6c 64 05 46 61 |xtSize.9|.Bold.Fa|
|00002120| 6c 73 65 06 49 74 61 6c | 69 63 05 46 61 6c 73 65 |lse.Ital|ic.False|
|00002130| 09 55 6e 64 65 72 6c 69 | 6e 65 05 46 61 6c 73 65 |.Underli|ne.False|
|00002140| 06 42 6f 72 64 65 72 04 | 54 72 75 65 09 4d 75 6c |.Border.|True.Mul|
|00002150| 74 69 4c 69 6e 65 05 46 | 61 6c 73 65 09 53 63 72 |tiLine.F|alse.Scr|
|00002160| 6f 6c 6c 42 61 72 04 54 | 72 75 65 06 53 74 79 6c |ollBar.T|rue.Styl|
|00002170| 65 64 05 46 61 6c 73 65 | 08 50 61 73 73 77 6f 72 |ed.False|.Passwor|
|00002180| 64 05 46 61 6c 73 65 08 | 52 65 61 64 4f 6e 6c 79 |d.False.|ReadOnly|
|00002190| 05 46 61 6c 73 65 09 4c | 69 6d 69 74 54 65 78 74 |.False.L|imitText|
|000021a0| 01 30 0a 41 63 63 65 70 | 74 54 61 62 73 05 46 61 |.0.Accep|tTabs.Fa|
|000021b0| 6c 73 65 09 54 65 78 74 | 43 6f 6c 6f 72 01 30 09 |lse.Text|Color.0.|
|000021c0| 42 61 63 6b 43 6f 6c 6f | 72 08 31 36 37 37 37 32 |BackColo|r.167772|
|000021d0| 31 35 07 45 6e 61 62 6c | 65 64 04 54 72 75 65 04 |15.Enabl|ed.True.|
|000021e0| 54 65 78 74 00 00 0a 50 | 75 73 68 42 75 74 74 6f |Text...P|ushButto|
|000021f0| 6e 17 04 4e 61 6d 65 0b | 50 75 73 68 42 75 74 74 |n..Name.|PushButt|
|00002200| 6f 6e 31 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |on1.Inde|x.-21474|
|00002210| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00002220| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00002230| 75 65 04 4c 65 66 74 03 | 33 38 34 03 54 6f 70 02 |ue.Left.|384.Top.|
|00002240| 33 39 05 57 69 64 74 68 | 02 37 31 06 48 65 69 67 |39.Width|.71.Heig|
|00002250| 68 74 02 32 30 0b 42 61 | 6c 6c 6f 6f 6e 48 65 6c |ht.20.Ba|lloonHel|
|00002260| 70 00 13 44 69 73 61 62 | 6c 65 64 42 61 6c 6c 6f |p..Disab|ledBallo|
|00002270| 6f 6e 48 65 6c 70 00 08 | 4c 6f 63 6b 4c 65 66 74 |onHelp..|LockLeft|
|00002280| 05 46 61 6c 73 65 07 4c | 6f 63 6b 54 6f 70 05 46 |.False.L|ockTop.F|
|00002290| 61 6c 73 65 09 4c 6f 63 | 6b 52 69 67 68 74 05 46 |alse.Loc|kRight.F|
|000022a0| 61 6c 73 65 0a 4c 6f 63 | 6b 42 6f 74 74 6f 6d 05 |alse.Loc|kBottom.|
|000022b0| 46 61 6c 73 65 08 54 65 | 78 74 46 6f 6e 74 06 47 |False.Te|xtFont.G|
|000022c0| 65 6e 65 76 61 08 54 65 | 78 74 53 69 7a 65 01 39 |eneva.Te|xtSize.9|
|000022d0| 04 42 6f 6c 64 05 46 61 | 6c 73 65 06 49 74 61 6c |.Bold.Fa|lse.Ital|
|000022e0| 69 63 05 46 61 6c 73 65 | 09 55 6e 64 65 72 6c 69 |ic.False|.Underli|
|000022f0| 6e 65 05 46 61 6c 73 65 | 07 43 61 70 74 69 6f 6e |ne.False|.Caption|
|00002300| 0c 44 6f 77 6e 6c 6f 61 | 64 20 49 74 21 07 44 65 |.Downloa|d It!.De|
|00002310| 66 61 75 6c 74 05 46 61 | 6c 73 65 06 43 61 6e 63 |fault.Fa|lse.Canc|
|00002320| 65 6c 05 46 61 6c 73 65 | 07 45 6e 61 62 6c 65 64 |el.False|.Enabled|
|00002330| 04 54 72 75 65 01 09 45 | 64 69 74 46 69 65 6c 64 |.True..E|ditField|
|00002340| 1f 04 4e 61 6d 65 0a 45 | 64 69 74 46 69 65 6c 64 |..Name.E|ditField|
|00002350| 32 05 49 6e 64 65 78 0b | 2d 32 31 34 37 34 38 33 |2.Index.|-2147483|
|00002360| 36 34 38 0d 54 61 62 50 | 61 6e 65 6c 49 6e 64 65 |648.TabP|anelInde|
|00002370| 78 01 30 07 56 69 73 69 | 62 6c 65 04 54 72 75 65 |x.0.Visi|ble.True|
|00002380| 04 4c 65 66 74 02 31 30 | 03 54 6f 70 02 36 38 05 |.Left.10|.Top.68.|
|00002390| 57 69 64 74 68 03 35 31 | 31 06 48 65 69 67 68 74 |Width.51|1.Height|
|000023a0| 03 32 32 36 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |.226.Bal|loonHelp|
|000023b0| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|000023c0| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|000023d0| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|000023e0| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|000023f0| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00002400| 61 6c 73 65 08 54 65 78 | 74 46 6f 6e 74 06 47 65 |alse.Tex|tFont.Ge|
|00002410| 6e 65 76 61 08 54 65 78 | 74 53 69 7a 65 01 39 04 |neva.Tex|tSize.9.|
|00002420| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00002430| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00002440| 65 05 46 61 6c 73 65 06 | 42 6f 72 64 65 72 04 54 |e.False.|Border.T|
|00002450| 72 75 65 09 4d 75 6c 74 | 69 4c 69 6e 65 04 54 72 |rue.Mult|iLine.Tr|
|00002460| 75 65 09 53 63 72 6f 6c | 6c 42 61 72 04 54 72 75 |ue.Scrol|lBar.Tru|
|00002470| 65 06 53 74 79 6c 65 64 | 04 54 72 75 65 08 50 61 |e.Styled|.True.Pa|
|00002480| 73 73 77 6f 72 64 05 46 | 61 6c 73 65 08 52 65 61 |ssword.F|alse.Rea|
|00002490| 64 4f 6e 6c 79 04 54 72 | 75 65 09 4c 69 6d 69 74 |dOnly.Tr|ue.Limit|
|000024a0| 54 65 78 74 01 30 0a 41 | 63 63 65 70 74 54 61 62 |Text.0.A|cceptTab|
|000024b0| 73 05 46 61 6c 73 65 09 | 54 65 78 74 43 6f 6c 6f |s.False.|TextColo|
|000024c0| 72 01 30 09 42 61 63 6b | 43 6f 6c 6f 72 08 31 36 |r.0.Back|Color.16|
|000024d0| 37 37 37 32 31 35 07 45 | 6e 61 62 6c 65 64 04 54 |777215.E|nabled.T|
|000024e0| 72 75 65 04 54 65 78 74 | 00 02 0a 53 74 61 74 69 |rue.Text|...Stati|
|000024f0| 63 54 65 78 74 17 04 4e | 61 6d 65 0b 53 74 61 74 |cText..N|ame.Stat|
|00002500| 69 63 54 65 78 74 31 05 | 49 6e 64 65 78 0b 2d 32 |icText1.|Index.-2|
|00002510| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|00002520| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|00002530| 65 04 54 72 75 65 04 4c | 65 66 74 02 31 35 03 54 |e.True.L|eft.15.T|
|00002540| 6f 70 02 33 39 05 57 69 | 64 74 68 02 35 36 06 48 |op.39.Wi|dth.56.H|
|00002550| 65 69 67 68 74 02 31 36 | 0b 42 61 6c 6c 6f 6f 6e |eight.16|.Balloon|
|00002560| 48 65 6c 70 00 13 44 69 | 73 61 62 6c 65 64 42 61 |Help..Di|sabledBa|
|00002570| 6c 6c 6f 6f 6e 48 65 6c | 70 00 08 4c 6f 63 6b 4c |lloonHel|p..LockL|
|00002580| 65 66 74 05 46 61 6c 73 | 65 07 4c 6f 63 6b 54 6f |eft.Fals|e.LockTo|
|00002590| 70 05 46 61 6c 73 65 09 | 4c 6f 63 6b 52 69 67 68 |p.False.|LockRigh|
|000025a0| 74 05 46 61 6c 73 65 0a | 4c 6f 63 6b 42 6f 74 74 |t.False.|LockBott|
|000025b0| 6f 6d 05 46 61 6c 73 65 | 08 54 65 78 74 46 6f 6e |om.False|.TextFon|
|000025c0| 74 06 47 65 6e 65 76 61 | 08 54 65 78 74 53 69 7a |t.Geneva|.TextSiz|
|000025d0| 65 01 39 04 42 6f 6c 64 | 04 54 72 75 65 06 49 74 |e.9.Bold|.True.It|
|000025e0| 61 6c 69 63 05 46 61 6c | 73 65 09 55 6e 64 65 72 |alic.Fal|se.Under|
|000025f0| 6c 69 6e 65 05 46 61 6c | 73 65 04 54 65 78 74 07 |line.Fal|se.Text.|
|00002600| 53 74 61 74 75 73 3a 09 | 54 65 78 74 41 6c 69 67 |Status:.|TextAlig|
|00002610| 6e 01 30 09 54 65 78 74 | 43 6f 6c 6f 72 01 30 09 |n.0.Text|Color.0.|
|00002620| 4d 75 6c 74 69 4c 69 6e | 65 05 46 61 6c 73 65 03 |MultiLin|e.False.|
|00002630| 0a 53 74 61 74 69 63 54 | 65 78 74 17 04 4e 61 6d |.StaticT|ext..Nam|
|00002640| 65 0b 53 74 61 74 69 63 | 54 65 78 74 32 05 49 6e |e.Static|Text2.In|
|00002650| 64 65 78 0b 2d 32 31 34 | 37 34 38 33 36 34 38 0d |dex.-214|7483648.|
|00002660| 54 61 62 50 61 6e 65 6c | 49 6e 64 65 78 01 30 07 |TabPanel|Index.0.|
|00002670| 56 69 73 69 62 6c 65 04 | 54 72 75 65 04 4c 65 66 |Visible.|True.Lef|
|00002680| 74 02 35 39 03 54 6f 70 | 02 33 39 05 57 69 64 74 |t.59.Top|.39.Widt|
|00002690| 68 03 31 35 36 06 48 65 | 69 67 68 74 02 31 37 0b |h.156.He|ight.17.|
|000026a0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 13 44 69 73 |BalloonH|elp..Dis|
|000026b0| 61 62 6c 65 64 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |abledBal|loonHelp|
|000026c0| 00 08 4c 6f 63 6b 4c 65 | 66 74 05 46 61 6c 73 65 |..LockLe|ft.False|
|000026d0| 07 4c 6f 63 6b 54 6f 70 | 05 46 61 6c 73 65 09 4c |.LockTop|.False.L|
|000026e0| 6f 63 6b 52 69 67 68 74 | 05 46 61 6c 73 65 0a 4c |ockRight|.False.L|
|000026f0| 6f 63 6b 42 6f 74 74 6f | 6d 05 46 61 6c 73 65 08 |ockBotto|m.False.|
|00002700| 54 65 78 74 46 6f 6e 74 | 06 47 65 6e 65 76 61 08 |TextFont|.Geneva.|
|00002710| 54 65 78 74 53 69 7a 65 | 01 39 04 42 6f 6c 64 05 |TextSize|.9.Bold.|
|00002720| 46 61 6c 73 65 06 49 74 | 61 6c 69 63 05 46 61 6c |False.It|alic.Fal|
|00002730| 73 65 09 55 6e 64 65 72 | 6c 69 6e 65 05 46 61 6c |se.Under|line.Fal|
|00002740| 73 65 04 54 65 78 74 0d | 4e 6f 74 20 43 6f 6e 6e |se.Text.|Not Conn|
|00002750| 65 63 74 65 64 09 54 65 | 78 74 41 6c 69 67 6e 01 |ected.Te|xtAlign.|
|00002760| 30 09 54 65 78 74 43 6f | 6c 6f 72 01 30 09 4d 75 |0.TextCo|lor.0.Mu|
|00002770| 6c 74 69 4c 69 6e 65 05 | 46 61 6c 73 65 04 0a 50 |ltiLine.|False..P|
|00002780| 75 73 68 42 75 74 74 6f | 6e 17 04 4e 61 6d 65 0b |ushButto|n..Name.|
|00002790| 50 75 73 68 42 75 74 74 | 6f 6e 32 05 49 6e 64 65 |PushButt|on2.Inde|
|000027a0| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|000027b0| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|000027c0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 03 |sible.Tr|ue.Left.|
|000027d0| 34 36 33 03 54 6f 70 02 | 33 39 05 57 69 64 74 68 |463.Top.|39.Width|
|000027e0| 02 36 30 06 48 65 69 67 | 68 74 02 32 30 0b 42 61 |.60.Heig|ht.20.Ba|
|000027f0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00002800| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00002810| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|00002820| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|00002830| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|00002840| 6b 42 6f 74 74 6f 6d 05 | 46 61 6c 73 65 08 54 65 |kBottom.|False.Te|
|00002850| 78 74 46 6f 6e 74 06 47 | 65 6e 65 76 61 08 54 65 |xtFont.G|eneva.Te|
|00002860| 78 74 53 69 7a 65 01 39 | 04 42 6f 6c 64 05 46 61 |xtSize.9|.Bold.Fa|
|00002870| 6c 73 65 06 49 74 61 6c | 69 63 05 46 61 6c 73 65 |lse.Ital|ic.False|
|00002880| 09 55 6e 64 65 72 6c 69 | 6e 65 05 46 61 6c 73 65 |.Underli|ne.False|
|00002890| 07 43 61 70 74 69 6f 6e | 07 47 65 74 20 49 74 21 |.Caption|.Get It!|
|000028a0| 07 44 65 66 61 75 6c 74 | 04 54 72 75 65 06 43 61 |.Default|.True.Ca|
|000028b0| 6e 63 65 6c 05 46 61 6c | 73 65 07 45 6e 61 62 6c |ncel.Fal|se.Enabl|
|000028c0| 65 64 04 54 72 75 65 05 | 09 50 6f 70 75 70 4d 65 |ed.True.|.PopupMe|
|000028d0| 6e 75 15 04 4e 61 6d 65 | 0a 50 6f 70 75 70 4d 65 |nu..Name|.PopupMe|
|000028e0| 6e 75 31 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |nu1.Inde|x.-21474|
|000028f0| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00002900| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00002910| 75 65 04 4c 65 66 74 03 | 34 39 30 03 54 6f 70 01 |ue.Left.|490.Top.|
|00002920| 39 05 57 69 64 74 68 02 | 33 33 06 48 65 69 67 68 |9.Width.|33.Heigh|
|00002930| 74 02 32 30 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.20.Bal|loonHelp|
|00002940| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00002950| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00002960| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00002970| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00002980| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00002990| 61 6c 73 65 08 54 65 78 | 74 46 6f 6e 74 06 53 79 |alse.Tex|tFont.Sy|
|000029a0| 73 74 65 6d 08 54 65 78 | 74 53 69 7a 65 02 31 32 |stem.Tex|tSize.12|
|000029b0| 04 42 6f 6c 64 05 46 61 | 6c 73 65 06 49 74 61 6c |.Bold.Fa|lse.Ital|
|000029c0| 69 63 05 46 61 6c 73 65 | 09 55 6e 64 65 72 6c 69 |ic.False|.Underli|
|000029d0| 6e 65 05 46 61 6c 73 65 | 07 45 6e 61 62 6c 65 64 |ne.False|.Enabled|
|000029e0| 04 54 72 75 65 0c 49 6e | 69 74 69 61 6c 56 61 6c |.True.In|itialVal|
|000029f0| 75 65 00 06 0b 50 72 6f | 67 72 65 73 73 42 61 72 |ue...Pro|gressBar|
|00002a00| 10 04 4e 61 6d 65 0c 50 | 72 6f 67 72 65 73 73 42 |..Name.P|rogressB|
|00002a10| 61 72 31 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |ar1.Inde|x.-21474|
|00002a20| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00002a30| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00002a40| 75 65 04 4c 65 66 74 03 | 32 31 37 03 54 6f 70 02 |ue.Left.|217.Top.|
|00002a50| 34 33 05 57 69 64 74 68 | 03 31 31 31 06 48 65 69 |43.Width|.111.Hei|
|00002a60| 67 68 74 02 31 32 0b 42 | 61 6c 6c 6f 6f 6e 48 65 |ght.12.B|alloonHe|
|00002a70| 6c 70 00 13 44 69 73 61 | 62 6c 65 64 42 61 6c 6c |lp..Disa|bledBall|
|00002a80| 6f 6f 6e 48 65 6c 70 00 | 08 4c 6f 63 6b 4c 65 66 |oonHelp.|.LockLef|
|00002a90| 74 05 46 61 6c 73 65 07 | 4c 6f 63 6b 54 6f 70 05 |t.False.|LockTop.|
|00002aa0| 46 61 6c 73 65 09 4c 6f | 63 6b 52 69 67 68 74 05 |False.Lo|ckRight.|
|00002ab0| 46 61 6c 73 65 0a 4c 6f | 63 6b 42 6f 74 74 6f 6d |False.Lo|ckBottom|
|00002ac0| 05 46 61 6c 73 65 05 56 | 61 6c 75 65 01 30 07 4d |.False.V|alue.0.M|
|00002ad0| 61 78 69 6d 75 6d 03 31 | 30 30 07 06 53 6f 63 6b |aximum.1|00..Sock|
|00002ae0| 65 74 06 04 4e 61 6d 65 | 0a 68 74 74 70 53 6f 63 |et..Name|.httpSoc|
|00002af0| 6b 65 74 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |ket.Inde|x.-21474|
|00002b00| 38 33 36 34 38 04 4c 65 | 66 74 02 2d 35 03 54 6f |83648.Le|ft.-5.To|
|00002b10| 70 03 31 31 31 07 41 64 | 64 72 65 73 73 00 04 50 |p.111.Ad|dress..P|
|00002b20| 6f 72 74 01 30 08 0a 53 | 74 61 74 69 63 54 65 78 |ort.0..S|taticTex|
|00002b30| 74 17 04 4e 61 6d 65 0b | 53 74 61 74 69 63 54 65 |t..Name.|StaticTe|
|00002b40| 78 74 33 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |xt3.Inde|x.-21474|
|00002b50| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00002b60| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00002b70| 75 65 04 4c 65 66 74 02 | 31 35 03 54 6f 70 02 31 |ue.Left.|15.Top.1|
|00002b80| 30 05 57 69 64 74 68 02 | 33 31 06 48 65 69 67 68 |0.Width.|31.Heigh|
|00002b90| 74 02 31 36 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.16.Bal|loonHelp|
|00002ba0| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00002bb0| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00002bc0| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00002bd0| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00002be0| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00002bf0| 61 6c 73 65 08 54 65 78 | 74 46 6f 6e 74 06 53 79 |alse.Tex|tFont.Sy|
|00002c00| 73 74 65 6d 08 54 65 78 | 74 53 69 7a 65 02 31 32 |stem.Tex|tSize.12|
|00002c10| 04 42 6f 6c 64 05 46 61 | 6c 73 65 06 49 74 61 6c |.Bold.Fa|lse.Ital|
|00002c20| 69 63 05 46 61 6c 73 65 | 09 55 6e 64 65 72 6c 69 |ic.False|.Underli|
|00002c30| 6e 65 05 46 61 6c 73 65 | 04 54 65 78 74 04 55 52 |ne.False|.Text.UR|
|00002c40| 4c 3a 09 54 65 78 74 41 | 6c 69 67 6e 01 30 09 54 |L:.TextA|lign.0.T|
|00002c50| 65 78 74 43 6f 6c 6f 72 | 01 30 09 4d 75 6c 74 69 |extColor|.0.Multi|
|00002c60| 4c 69 6e 65 05 46 61 6c | 73 65 09 08 43 68 65 63 |Line.Fal|se..Chec|
|00002c70| 6b 42 6f 78 16 04 4e 61 | 6d 65 08 43 68 6b 50 72 |kBox..Na|me.ChkPr|
|00002c80| 6f 78 79 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |oxy.Inde|x.-21474|
|00002c90| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00002ca0| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00002cb0| 75 65 04 4c 65 66 74 02 | 31 35 03 54 6f 70 03 33 |ue.Left.|15.Top.3|
|00002cc0| 30 32 05 57 69 64 74 68 | 02 38 39 06 48 65 69 67 |02.Width|.89.Heig|
|00002cd0| 68 74 02 32 30 0b 42 61 | 6c 6c 6f 6f 6e 48 65 6c |ht.20.Ba|lloonHel|
|00002ce0| 70 00 13 44 69 73 61 62 | 6c 65 64 42 61 6c 6c 6f |p..Disab|ledBallo|
|00002cf0| 6f 6e 48 65 6c 70 00 08 | 4c 6f 63 6b 4c 65 66 74 |onHelp..|LockLeft|
|00002d00| 05 46 61 6c 73 65 07 4c | 6f 63 6b 54 6f 70 05 46 |.False.L|ockTop.F|
|00002d10| 61 6c 73 65 09 4c 6f 63 | 6b 52 69 67 68 74 05 46 |alse.Loc|kRight.F|
|00002d20| 61 6c 73 65 0a 4c 6f 63 | 6b 42 6f 74 74 6f 6d 05 |alse.Loc|kBottom.|
|00002d30| 46 61 6c 73 65 08 54 65 | 78 74 46 6f 6e 74 06 53 |False.Te|xtFont.S|
|00002d40| 79 73 74 65 6d 08 54 65 | 78 74 53 69 7a 65 02 31 |ystem.Te|xtSize.1|
|00002d50| 32 04 42 6f 6c 64 05 46 | 61 6c 73 65 06 49 74 61 |2.Bold.F|alse.Ita|
|00002d60| 6c 69 63 05 46 61 6c 73 | 65 09 55 6e 64 65 72 6c |lic.Fals|e.Underl|
|00002d70| 69 6e 65 05 46 61 6c 73 | 65 07 43 61 70 74 69 6f |ine.Fals|e.Captio|
|00002d80| 6e 0a 55 73 65 20 70 72 | 6f 78 79 3a 05 56 61 6c |n.Use pr|oxy:.Val|
|00002d90| 75 65 05 46 61 6c 73 65 | 07 45 6e 61 62 6c 65 64 |ue.False|.Enabled|
|00002da0| 04 54 72 75 65 0a 09 45 | 64 69 74 46 69 65 6c 64 |.True..E|ditField|
|00002db0| 1f 04 4e 61 6d 65 08 54 | 78 74 50 72 6f 78 79 05 |..Name.T|xtProxy.|
|00002dc0| 49 6e 64 65 78 0b 2d 32 | 31 34 37 34 38 33 36 34 |Index.-2|14748364|
|00002dd0| 38 0d 54 61 62 50 61 6e | 65 6c 49 6e 64 65 78 01 |8.TabPan|elIndex.|
|00002de0| 30 07 56 69 73 69 62 6c | 65 04 54 72 75 65 04 4c |0.Visibl|e.True.L|
|00002df0| 65 66 74 03 31 30 36 03 | 54 6f 70 03 33 30 32 05 |eft.106.|Top.302.|
|00002e00| 57 69 64 74 68 03 34 31 | 35 06 48 65 69 67 68 74 |Width.41|5.Height|
|00002e10| 02 32 30 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |.20.Ball|oonHelp.|
|00002e20| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|00002e30| 48 65 6c 70 00 08 4c 6f | 63 6b 4c 65 66 74 05 46 |Help..Lo|ckLeft.F|
|00002e40| 61 6c 73 65 07 4c 6f 63 | 6b 54 6f 70 05 46 61 6c |alse.Loc|kTop.Fal|
|00002e50| 73 65 09 4c 6f 63 6b 52 | 69 67 68 74 05 46 61 6c |se.LockR|ight.Fal|
|00002e60| 73 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 05 46 61 |se.LockB|ottom.Fa|
|00002e70| 6c 73 65 08 54 65 78 74 | 46 6f 6e 74 06 53 79 73 |lse.Text|Font.Sys|
|00002e80| 74 65 6d 08 54 65 78 74 | 53 69 7a 65 02 31 32 04 |tem.Text|Size.12.|
|00002e90| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00002ea0| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00002eb0| 65 05 46 61 6c 73 65 06 | 42 6f 72 64 65 72 04 54 |e.False.|Border.T|
|00002ec0| 72 75 65 09 4d 75 6c 74 | 69 4c 69 6e 65 05 46 61 |rue.Mult|iLine.Fa|
|00002ed0| 6c 73 65 09 53 63 72 6f | 6c 6c 42 61 72 04 54 72 |lse.Scro|llBar.Tr|
|00002ee0| 75 65 06 53 74 79 6c 65 | 64 05 46 61 6c 73 65 08 |ue.Style|d.False.|
|00002ef0| 50 61 73 73 77 6f 72 64 | 05 46 61 6c 73 65 08 52 |Password|.False.R|
|00002f00| 65 61 64 4f 6e 6c 79 05 | 46 61 6c 73 65 09 4c 69 |eadOnly.|False.Li|
|00002f10| 6d 69 74 54 65 78 74 01 | 30 0a 41 63 63 65 70 74 |mitText.|0.Accept|
|00002f20| 54 61 62 73 05 46 61 6c | 73 65 09 54 65 78 74 43 |Tabs.Fal|se.TextC|
|00002f30| 6f 6c 6f 72 01 30 09 42 | 61 63 6b 43 6f 6c 6f 72 |olor.0.B|ackColor|
|00002f40| 08 31 36 37 37 37 32 31 | 35 07 45 6e 61 62 6c 65 |.1677721|5.Enable|
|00002f50| 64 04 54 72 75 65 04 54 | 65 78 74 22 62 65 73 73 |d.True.T|ext"bess|
|00002f60| 2d 70 72 6f 78 79 2e 6f | 6b 61 6c 6f 6f 73 61 2e |-proxy.o|kaloosa.|
|00002f70| 6b 31 32 2e 66 6c 2e 75 | 73 3a 37 30 34 36 0b 0a |k12.fl.u|s:7046..|
|00002f80| 50 75 73 68 42 75 74 74 | 6f 6e 17 04 4e 61 6d 65 |PushButt|on..Name|
|00002f90| 0b 50 75 73 68 42 75 74 | 74 6f 6e 33 05 49 6e 64 |.PushBut|ton3.Ind|
|00002fa0| 65 78 0b 2d 32 31 34 37 | 34 38 33 36 34 38 0d 54 |ex.-2147|483648.T|
|00002fb0| 61 62 50 61 6e 65 6c 49 | 6e 64 65 78 01 30 07 56 |abPanelI|ndex.0.V|
|00002fc0| 69 73 69 62 6c 65 04 54 | 72 75 65 04 4c 65 66 74 |isible.T|rue.Left|
|00002fd0| 03 33 33 35 03 54 6f 70 | 02 33 39 05 57 69 64 74 |.335.Top|.39.Widt|
|00002fe0| 68 02 34 32 06 48 65 69 | 67 68 74 02 32 30 0b 42 |h.42.Hei|ght.20.B|
|00002ff0| 61 6c 6c 6f 6f 6e 48 65 | 6c 70 00 13 44 69 73 61 |alloonHe|lp..Disa|
|00003000| 62 6c 65 64 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |bledBall|oonHelp.|
|00003010| 08 4c 6f 63 6b 4c 65 66 | 74 05 46 61 6c 73 65 07 |.LockLef|t.False.|
|00003020| 4c 6f 63 6b 54 6f 70 05 | 46 61 6c 73 65 09 4c 6f |LockTop.|False.Lo|
|00003030| 63 6b 52 69 67 68 74 05 | 46 61 6c 73 65 0a 4c 6f |ckRight.|False.Lo|
|00003040| 63 6b 42 6f 74 74 6f 6d | 05 46 61 6c 73 65 08 54 |ckBottom|.False.T|
|00003050| 65 78 74 46 6f 6e 74 06 | 47 65 6e 65 76 61 08 54 |extFont.|Geneva.T|
|00003060| 65 78 74 53 69 7a 65 01 | 39 04 42 6f 6c 64 05 46 |extSize.|9.Bold.F|
|00003070| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|00003080| 65 09 55 6e 64 65 72 6c | 69 6e 65 05 46 61 6c 73 |e.Underl|ine.Fals|
|00003090| 65 07 43 61 70 74 69 6f | 6e 06 43 61 6e 63 65 6c |e.Captio|n.Cancel|
|000030a0| 07 44 65 66 61 75 6c 74 | 05 46 61 6c 73 65 06 43 |.Default|.False.C|
|000030b0| 61 6e 63 65 6c 05 46 61 | 6c 73 65 07 45 6e 61 62 |ancel.Fa|lse.Enab|
|000030c0| 6c 65 64 04 54 72 75 65 | 0c 02 41 04 4d 65 6e 75 |led.True|..A.Menu|
|000030d0| 04 4d 65 6e 75 05 10 2f | 93 04 81 05 04 01 00 00 |.Menu../|........|
|000030e0| 80 80 80 80 10 00 00 00 | 00 00 05 00 00 3c 08 4d |........|.....<.M|
|000030f0| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 01 02 00 00 |enuItem.|........|
|00003100| 80 80 80 80 10 00 00 00 | 00 00 05 00 00 3c 08 4d |........|.....<.M|
|00003110| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 04 46 |enuItem.|.......F|
|00003120| 69 6c 65 00 80 80 80 80 | 10 00 00 00 00 00 05 00 |ile.....|........|
|00003130| 00 3c 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |.<.MenuI|tem.....|
|00003140| 06 00 0a 50 61 67 65 20 | 49 6e 66 6f c9 0c 46 69 |...Page |Info..Fi|
|00003150| 6c 65 50 61 67 65 49 6e | 66 6f 80 80 80 80 10 01 |lePageIn|fo......|
|00003160| 49 00 00 00 00 05 00 00 | 3c 08 4d 65 6e 75 49 74 |I.......|<.MenuIt|
|00003170| 65 6d 00 00 00 00 00 00 | 00 0c 53 75 62 6d 69 74 |em......|..Submit|
|00003180| 20 46 6f 72 6d c9 0e 46 | 69 6c 65 53 75 62 6d 69 | Form..F|ileSubmi|
|00003190| 74 46 6f 72 6d 80 80 80 | 80 10 01 4d 00 00 00 00 |tForm...|...M....|
|000031a0| 05 00 00 3c 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |...<.Men|uItem...|
|000031b0| 00 00 00 00 09 54 72 61 | 6e 73 6c 61 74 65 0d 46 |.....Tra|nslate.F|
|000031c0| 69 6c 65 54 72 61 6e 73 | 6c 61 74 65 80 80 80 80 |ileTrans|late....|
|000031d0| 10 01 54 00 00 00 00 05 | 00 00 3c 08 4d 65 6e 75 |..T.....|..<.Menu|
|000031e0| 49 74 65 6d 00 00 00 00 | 00 00 00 01 2d 00 80 80 |Item....|....-...|
|000031f0| 80 80 10 00 00 00 00 00 | 05 00 00 3c 08 4d 65 6e |........|...<.Men|
|00003200| 75 49 74 65 6d 00 00 00 | 00 00 00 00 04 51 75 69 |uItem...|.....Qui|
|00003210| 74 08 46 69 6c 65 51 75 | 69 74 80 80 80 80 10 01 |t.FileQu|it......|
|00003220| 51 00 00 00 00 05 00 00 | 3c 0c 51 75 69 74 4d 65 |Q.......|<.QuitMe|
|00003230| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 02 00 00 80 |nuItem..|........|
|00003240| 80 80 80 10 00 00 00 00 | 00 05 00 00 3c 08 4d 65 |........|....<.Me|
|00003250| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 04 45 64 |nuItem..|......Ed|
|00003260| 69 74 00 80 80 80 80 10 | 00 00 00 00 00 05 00 00 |it......|........|
|00003270| 3c 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 07 |<.MenuIt|em......|
|00003280| 00 04 55 6e 64 6f 08 45 | 64 69 74 55 6e 64 6f 80 |..Undo.E|ditUndo.|
|00003290| 80 80 80 10 01 5a 00 00 | 00 00 05 00 00 3c 08 4d |.....Z..|.....<.M|
|000032a0| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 01 2d |enuItem.|.......-|
|000032b0| 00 80 80 80 80 10 00 00 | 00 00 00 05 00 00 3c 08 |........|......<.|
|000032c0| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 03 |MenuItem|........|
|000032d0| 43 75 74 07 45 64 69 74 | 43 75 74 80 80 80 80 10 |Cut.Edit|Cut.....|
|000032e0| 01 58 00 00 00 00 05 00 | 00 3c 08 4d 65 6e 75 49 |.X......|.<.MenuI|
|000032f0| 74 65 6d 00 00 00 00 00 | 00 00 04 43 6f 70 79 08 |tem.....|...Copy.|
|00003300| 45 64 69 74 43 6f 70 79 | 80 80 80 80 10 01 43 00 |EditCopy|......C.|
|00003310| 00 00 00 05 00 00 3c 08 | 4d 65 6e 75 49 74 65 6d |......<.|MenuItem|
|00003320| 00 00 00 00 00 00 00 05 | 50 61 73 74 65 09 45 64 |........|Paste.Ed|
|00003330| 69 74 50 61 73 74 65 80 | 80 80 80 10 01 56 00 00 |itPaste.|.....V..|
|00003340| 00 00 05 00 00 3c 08 4d | 65 6e 75 49 74 65 6d 00 |.....<.M|enuItem.|
|00003350| 00 00 00 00 00 00 05 43 | 6c 65 61 72 09 45 64 69 |.......C|lear.Edi|
|00003360| 74 43 6c 65 61 72 80 80 | 80 80 10 00 00 00 00 00 |tClear..|........|
|00003370| 05 00 00 3c 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |...<.Men|uItem...|
|00003380| 00 00 00 02 00 00 80 80 | 80 80 10 00 00 00 00 00 |........|........|
|00003390| 05 00 00 3c 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |...<.Men|uItem...|
|000033a0| 00 00 00 02 00 00 80 80 | 80 80 10 00 00 00 00 00 |........|........|
|000033b0| 05 00 00 3c 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |...<.Men|uItem...|
|000033c0| 00 00 00 03 41 05 43 6c | 61 73 73 0a 68 74 74 70 |....A.Cl|ass.http|
|000033d0| 53 6f 63 6b 65 74 86 02 | 80 04 8e 0b 8b 09 05 00 |Socket..|........|
|000033e0| 0a 68 74 74 70 53 6f 63 | 6b 65 74 a8 03 06 53 6f |.httpSoc|ket...So|
|000033f0| 63 6b 65 74 22 15 47 6f | 74 48 65 61 64 65 72 73 |cket".Go|tHeaders|
|00003400| 20 61 73 20 62 6f 6f 6c | 65 61 6e 00 11 48 65 61 | as bool|ean..Hea|
|00003410| 64 65 72 73 20 61 73 20 | 73 74 72 69 6e 67 00 0e |ders as |string..|
|00003420| 74 65 78 74 20 61 73 20 | 73 74 72 69 6e 67 00 11 |text as |string..|
|00003430| 66 69 6c 65 6c 65 6e 20 | 61 73 20 73 69 6e 67 6c |filelen |as singl|
|00003440| 65 00 12 66 69 6c 65 74 | 79 70 65 20 61 73 20 73 |e..filet|ype as s|
|00003450| 74 72 69 6e 67 00 16 48 | 65 61 64 65 72 4e 61 6d |tring..H|eaderNam|
|00003460| 28 30 29 20 61 73 20 73 | 74 72 69 6e 67 00 16 48 |(0) as s|tring..H|
|00003470| 65 61 64 65 72 56 61 6c | 28 30 29 20 61 73 20 73 |eaderVal|(0) as s|
|00003480| 74 72 69 6e 67 00 12 66 | 69 6c 65 4e 61 6d 65 20 |tring..f|ileName |
|00003490| 61 73 20 73 74 72 69 6e | 67 00 13 4c 61 73 74 57 |as strin|g..LastW|
|000034a0| 72 69 74 65 20 61 73 20 | 73 69 6e 67 6c 65 00 10 |rite as |single..|
|000034b0| 4c 61 73 74 4d 44 20 61 | 73 20 73 69 6e 67 6c 65 |LastMD a|s single|
|000034c0| 00 18 4d 6f 72 65 44 61 | 74 61 44 65 6c 61 79 20 |..MoreDa|taDelay |
|000034d0| 61 73 20 69 6e 74 65 67 | 65 72 00 16 54 6f 74 61 |as integ|er..Tota|
|000034e0| 6c 4c 65 6e 67 74 68 20 | 61 73 20 69 6e 74 65 67 |lLength |as integ|
|000034f0| 65 72 00 14 4c 61 73 74 | 41 6d 6f 75 6e 74 20 61 |er..Last|Amount a|
|00003500| 73 20 73 69 6e 67 6c 65 | 00 11 44 4c 54 79 70 65 |s single|..DLType|
|00003510| 20 61 73 20 69 6e 74 65 | 67 65 72 00 12 46 69 6c | as inte|ger..Fil|
|00003520| 65 20 61 73 20 66 6f 6c | 64 65 72 69 74 65 6d 00 |e as fol|deritem.|
|00003530| 15 50 72 6f 78 79 53 65 | 72 76 65 72 20 61 73 20 |.ProxySe|rver as |
|00003540| 73 74 72 69 6e 67 00 14 | 50 72 6f 78 79 50 6f 72 |string..|ProxyPor|
|00003550| 74 20 61 73 20 69 6e 74 | 65 67 65 72 00 10 43 6c |t as int|eger..Cl|
|00003560| 69 65 6e 74 20 61 73 20 | 73 74 72 69 6e 67 00 11 |ient as |string..|
|00003570| 4c 6f 67 69 6e 36 34 20 | 61 73 20 73 74 72 69 6e |Login64 |as strin|
|00003580| 67 00 11 63 75 72 53 69 | 74 65 20 61 73 20 73 74 |g..curSi|te as st|
|00003590| 72 69 6e 67 00 13 50 61 | 73 73 4c 61 73 74 20 61 |ring..Pa|ssLast a|
|000035a0| 73 20 62 6f 6f 6c 65 61 | 6e 00 11 4d 69 6d 65 28 |s boolea|n..Mime(|
|000035b0| 30 29 20 61 73 20 73 74 | 72 69 6e 67 00 18 4d 69 |0) as st|ring..Mi|
|000035c0| 6d 65 43 72 65 61 74 6f | 72 28 30 29 20 61 73 20 |meCreato|r(0) as |
|000035d0| 73 74 72 69 6e 67 00 15 | 4d 69 6d 65 54 79 70 65 |string..|MimeType|
|000035e0| 28 30 29 20 61 73 20 73 | 74 72 69 6e 67 00 16 4e |(0) as s|tring..N|
|000035f0| 75 6d 52 65 66 65 72 65 | 72 73 20 61 73 20 69 6e |umRefere|rs as in|
|00003600| 74 65 67 65 72 00 14 42 | 75 66 66 65 72 53 69 7a |teger..B|ufferSiz|
|00003610| 65 20 61 73 20 73 69 6e | 67 6c 65 00 16 4c 6f 67 |e as sin|gle..Log|
|00003620| 69 6e 41 6e 64 50 61 73 | 73 20 61 73 20 73 74 72 |inAndPas|s as str|
|00003630| 69 6e 67 00 11 4d 65 74 | 68 6f 64 20 61 73 20 69 |ing..Met|hod as i|
|00003640| 6e 74 65 67 65 72 00 0e | 47 65 74 20 61 73 20 69 |nteger..|Get as i|
|00003650| 6e 74 65 67 65 72 00 0f | 50 6f 73 74 20 61 73 20 |nteger..|Post as |
|00003660| 69 6e 74 65 67 65 72 00 | 14 4b 65 65 70 41 6c 69 |integer.|.KeepAli|
|00003670| 76 65 20 61 73 20 62 6f | 6f 6c 65 61 6e 00 13 43 |ve as bo|olean..C|
|00003680| 75 72 53 65 72 76 65 72 | 20 61 73 20 73 74 72 69 |urServer| as stri|
|00003690| 6e 67 00 12 50 6f 73 74 | 44 61 74 61 20 61 73 20 |ng..Post|Data as |
|000036a0| 73 74 72 69 6e 67 00 15 | 50 6f 73 74 45 6e 63 54 |string..|PostEncT|
|000036b0| 79 70 65 20 61 73 20 73 | 74 72 69 6e 67 00 18 07 |ype as s|tring...|
|000036c0| 41 64 64 4d 69 6d 65 32 | 6d 69 6d 72 20 61 73 20 |AddMime2|mimr as |
|000036d0| 73 74 72 69 6e 67 2c 20 | 6d 74 79 70 65 20 61 73 |string, |mtype as|
|000036e0| 20 73 74 72 69 6e 67 2c | 20 63 72 65 61 74 6f 72 | string,| creator|
|000036f0| 20 61 73 20 73 74 72 69 | 6e 67 00 00 01 00 01 00 | as stri|ng......|
|00003700| 05 3f 53 75 62 20 41 64 | 64 4d 69 6d 65 28 6d 69 |.?Sub Ad|dMime(mi|
|00003710| 6d 72 20 61 73 20 73 74 | 72 69 6e 67 2c 20 6d 74 |mr as st|ring, mt|
|00003720| 79 70 65 20 61 73 20 73 | 74 72 69 6e 67 2c 20 63 |ype as s|tring, c|
|00003730| 72 65 61 74 6f 72 20 61 | 73 20 73 74 72 69 6e 67 |reator a|s string|
|00003740| 29 1b 4d 69 6d 65 2e 41 | 70 70 65 6e 64 20 6c 6f |).Mime.A|ppend lo|
|00003750| 77 65 72 63 61 73 65 28 | 6d 69 6d 72 29 15 6d 69 |wercase(|mimr).mi|
|00003760| 6d 65 74 79 70 65 2e 61 | 70 70 65 6e 64 20 6d 74 |metype.a|ppend mt|
|00003770| 79 70 65 1a 6d 69 6d 65 | 63 72 65 61 74 6f 72 2e |ype.mime|creator.|
|00003780| 61 70 70 65 6e 64 20 63 | 72 65 61 74 6f 72 07 45 |append c|reator.E|
|00003790| 6e 64 20 53 75 62 09 41 | 64 64 54 6f 46 69 6c 65 |nd Sub.A|ddToFile|
|000037a0| 0b 74 20 61 73 20 73 74 | 72 69 6e 67 00 00 03 00 |.t as st|ring....|
|000037b0| 03 00 18 1a 53 75 62 20 | 41 64 64 54 6f 46 69 6c |....Sub |AddToFil|
|000037c0| 65 28 74 20 61 73 20 73 | 74 72 69 6e 67 29 1f 64 |e(t as s|tring).d|
|000037d0| 69 6d 20 62 70 73 20 61 | 73 20 73 69 6e 67 6c 65 |im bps a|s single|
|000037e0| 2c 20 74 72 20 61 73 20 | 73 69 6e 67 6c 65 19 64 |, tr as |single.d|
|000037f0| 69 6d 20 66 20 61 73 20 | 74 65 78 74 6f 75 74 70 |im f as |textoutp|
|00003800| 75 74 73 74 72 65 61 6d | 00 0b 74 65 78 74 3d 74 |utstream|..text=t|
|00003810| 65 78 74 2b 74 00 16 66 | 69 6c 65 6c 65 6e 3d 66 |ext+t..f|ilelen=f|
|00003820| 69 6c 65 6c 65 6e 2b 6c | 65 6e 28 74 29 00 23 69 |ilelen+l|en(t).#i|
|00003830| 66 20 54 69 63 6b 73 2d | 4c 61 73 74 4d 44 3e 3d |f Ticks-|LastMD>=|
|00003840| 4d 6f 72 65 44 61 74 61 | 44 65 6c 61 79 20 74 68 |MoreData|Delay th|
|00003850| 65 6e 2c 62 70 73 3d 28 | 66 69 6c 65 6c 65 6e 2d |en,bps=(|filelen-|
|00003860| 4c 61 73 74 41 6d 6f 75 | 6e 74 29 2f 28 28 54 69 |LastAmou|nt)/((Ti|
|00003870| 63 6b 73 2d 4c 61 73 74 | 4d 44 29 2f 36 30 29 12 |cks-Last|MD)/60).|
|00003880| 4c 61 73 74 41 6d 6f 75 | 6e 74 3d 66 69 6c 65 6c |LastAmou|nt=filel|
|00003890| 65 6e 0c 4c 61 73 74 4d | 44 3d 74 69 63 6b 73 00 |en.LastM|D=ticks.|
|000038a0| 37 4d 6f 72 65 44 61 74 | 61 20 66 69 6c 65 6c 65 |7MoreDat|a filele|
|000038b0| 6e 2c 20 74 6f 74 61 6c | 4c 65 6e 67 74 68 2c 20 |n, total|Length, |
|000038c0| 66 69 6c 65 6c 65 6e 2f | 74 6f 74 61 6c 4c 65 6e |filelen/|totalLen|
|000038d0| 67 74 68 2c 20 62 70 73 | 06 65 6e 64 20 69 66 00 |gth, bps|.end if.|
|000038e0| 1c 69 66 20 6c 65 6e 28 | 74 65 78 74 29 3e 42 75 |.if len(|text)>Bu|
|000038f0| 66 66 65 72 53 69 7a 65 | 20 74 68 65 6e 1f 2f 2f |fferSize| then.//|
|00003900| 20 57 72 69 74 65 20 69 | 6e 20 75 73 65 72 2d 64 | Write i|n user-d|
|00003910| 65 66 69 6e 65 64 20 63 | 68 75 6e 6b 73 17 66 3d |efined c|hunks.f=|
|00003920| 66 69 6c 65 2e 41 70 70 | 65 6e 64 54 6f 54 65 78 |file.App|endToTex|
|00003930| 74 46 69 6c 65 0c 66 2e | 57 72 69 74 65 20 74 65 |tFile.f.|Write te|
|00003940| 78 74 07 66 2e 43 6c 6f | 73 65 07 74 65 78 74 3d |xt.f.Clo|se.text=|
|00003950| 22 22 06 65 6e 64 20 69 | 66 07 45 6e 64 20 53 75 |"".end i|f.End Su|
|00003960| 62 0c 41 64 64 54 6f 48 | 65 61 64 65 72 73 0c 74 |b.AddToH|eaders.t|
|00003970| 73 20 61 73 20 73 74 72 | 69 6e 67 00 00 01 24 01 |s as str|ing...$.|
|00003980| 24 31 1e 53 75 62 20 41 | 64 64 54 6f 48 65 61 64 |$1.Sub A|ddToHead|
|00003990| 65 72 73 28 74 73 20 61 | 73 20 73 74 72 69 6e 67 |ers(ts a|s string|
|000039a0| 29 24 64 69 6d 20 72 2c | 20 74 20 61 73 20 73 74 |)$dim r,| t as st|
|000039b0| 72 69 6e 67 2c 20 66 62 | 6f 6f 6c 20 61 73 20 62 |ring, fb|ool as b|
|000039c0| 6f 6f 6c 65 61 6e 00 04 | 74 3d 74 73 00 1b 69 66 |oolean..|t=ts..if|
|000039d0| 20 69 6e 73 74 72 28 74 | 2c 20 63 68 72 28 31 33 | instr(t|, chr(13|
|000039e0| 29 29 3d 30 20 74 68 65 | 6e 29 74 3d 72 65 70 6c |))=0 the|n)t=repl|
|000039f0| 61 63 65 61 6c 6c 28 74 | 2c 20 63 68 72 28 31 30 |aceall(t|, chr(10|
|00003a00| 29 2c 20 63 68 72 28 31 | 33 29 2b 63 68 72 28 31 |), chr(1|3)+chr(1|
|00003a10| 30 29 29 0a 66 62 6f 6f | 6c 3d 74 72 75 65 06 65 |0)).fboo|l=true.e|
|00003a20| 6e 64 20 69 66 00 2b 69 | 66 20 69 6e 73 74 72 28 |nd if.+i|f instr(|
|00003a30| 74 2c 20 63 68 72 28 31 | 30 29 2b 63 68 72 28 31 |t, chr(1|0)+chr(1|
|00003a40| 33 29 2b 63 68 72 28 31 | 30 29 29 3e 30 20 74 68 |3)+chr(1|0))>0 th|
|00003a50| 65 6e 0f 47 6f 74 48 65 | 61 64 65 72 73 3d 74 72 |en.GotHe|aders=tr|
|00003a60| 75 65 26 68 65 61 64 65 | 72 73 3d 68 65 61 64 65 |ue&heade|rs=heade|
|00003a70| 72 73 2b 6c 65 66 74 28 | 74 2c 20 47 65 74 44 72 |rs+left(|t, GetDr|
|00003a80| 6f 70 4f 66 66 28 74 29 | 29 17 72 3d 6d 69 64 28 |opOff(t)|).r=mid(|
|00003a90| 74 2c 20 47 65 74 44 72 | 6f 70 4f 66 66 28 74 29 |t, GetDr|opOff(t)|
|00003aa0| 29 0c 50 61 72 73 65 48 | 65 61 64 65 72 73 0d 69 |).ParseH|eaders.i|
|00003ab0| 66 20 66 62 6f 6f 6c 20 | 74 68 65 6e 31 41 64 64 |f fbool |then1Add|
|00003ac0| 54 6f 46 69 6c 65 20 72 | 65 70 6c 61 63 65 61 6c |ToFile r|eplaceal|
|00003ad0| 6c 28 72 2c 20 63 68 72 | 28 31 33 29 2b 63 68 72 |l(r, chr|(13)+chr|
|00003ae0| 28 31 30 29 2c 20 63 68 | 72 28 31 30 29 29 04 65 |(10), ch|r(10)).e|
|00003af0| 6c 73 65 0b 41 64 64 54 | 6f 46 69 6c 65 20 72 06 |lse.AddT|oFile r.|
|00003b00| 65 6e 64 20 69 66 04 65 | 6c 73 65 11 68 65 61 64 |end if.e|lse.head|
|00003b10| 65 72 73 3d 68 65 61 64 | 65 72 73 2b 74 06 65 6e |ers=head|ers+t.en|
|00003b20| 64 20 69 66 00 25 27 64 | 69 6d 20 72 2c 20 74 20 |d if.%'d|im r, t |
|00003b30| 61 73 20 73 74 72 69 6e | 67 2c 20 66 62 6f 6f 6c |as strin|g, fbool|
|00003b40| 20 61 73 20 62 6f 6f 6c | 65 61 6e 00 06 72 65 74 | as bool|ean..ret|
|00003b50| 75 72 6e 00 04 74 3d 74 | 73 1b 2f 2f 66 69 72 73 |urn..t=t|s.//firs|
|00003b60| 74 2c 20 67 65 74 20 72 | 69 64 20 6f 66 20 61 6c |t, get r|id of al|
|00003b70| 6c 20 43 52 73 1a 74 3d | 72 65 70 6c 61 63 65 61 |l CRs.t=|replacea|
|00003b80| 6c 6c 28 74 2c 63 68 72 | 28 31 33 29 2c 22 22 29 |ll(t,chr|(13),"")|
|00003b90| 1e 2f 2f 20 74 68 65 6e | 20 72 65 70 6c 61 63 65 |.// then| replace|
|00003ba0| 20 4c 46 73 20 77 69 74 | 68 20 43 52 4c 46 73 29 | LFs wit|h CRLFs)|
|00003bb0| 74 3d 72 65 70 6c 61 63 | 65 61 6c 6c 28 74 2c 20 |t=replac|eall(t, |
|00003bc0| 63 68 72 28 31 30 29 2c | 20 63 68 72 28 31 33 29 |chr(10),| chr(13)|
|00003bd0| 2b 63 68 72 28 31 30 29 | 29 0a 66 62 6f 6f 6c 3d |+chr(10)|).fbool=|
|00003be0| 74 72 75 65 00 2d 69 66 | 20 28 69 6e 73 74 72 28 |true.-if| (instr(|
|00003bf0| 74 2c 20 63 68 72 28 31 | 30 29 2b 63 68 72 28 31 |t, chr(1|0)+chr(1|
|00003c00| 33 29 2b 63 68 72 28 31 | 30 29 29 3e 30 29 20 74 |3)+chr(1|0))>0) t|
|00003c10| 68 65 6e 0f 47 6f 74 48 | 65 61 64 65 72 73 3d 74 |hen.GotH|eaders=t|
|00003c20| 72 75 65 26 68 65 61 64 | 65 72 73 3d 68 65 61 64 |rue&head|ers=head|
|00003c30| 65 72 73 2b 6c 65 66 74 | 28 74 2c 20 47 65 74 44 |ers+left|(t, GetD|
|00003c40| 72 6f 70 4f 66 66 28 74 | 29 29 17 72 3d 6d 69 64 |ropOff(t|)).r=mid|
|00003c50| 28 74 2c 20 47 65 74 44 | 72 6f 70 4f 66 66 28 74 |(t, GetD|ropOff(t|
|00003c60| 29 29 0c 50 61 72 73 65 | 48 65 61 64 65 72 73 0d |)).Parse|Headers.|
|00003c70| 69 66 20 66 62 6f 6f 6c | 20 74 68 65 6e 31 41 64 |if fbool| then1Ad|
|00003c80| 64 54 6f 46 69 6c 65 20 | 72 65 70 6c 61 63 65 61 |dToFile |replacea|
|00003c90| 6c 6c 28 72 2c 20 63 68 | 72 28 31 33 29 2b 63 68 |ll(r, ch|r(13)+ch|
|00003ca0| 72 28 31 30 29 2c 20 63 | 68 72 28 31 30 29 29 04 |r(10), c|hr(10)).|
|00003cb0| 65 6c 73 65 0b 41 64 64 | 54 6f 46 69 6c 65 20 72 |else.Add|ToFile r|
|00003cc0| 06 65 6e 64 20 69 66 04 | 65 6c 73 65 11 68 65 61 |.end if.|else.hea|
|00003cd0| 64 65 72 73 3d 68 65 61 | 64 65 72 73 2b 74 06 65 |ders=hea|ders+t.e|
|00003ce0| 6e 64 20 69 66 07 45 6e | 64 20 53 75 62 09 44 6f |nd if.En|d Sub.Do|
|00003cf0| 43 6f 6e 6e 65 63 74 1e | 73 65 72 76 20 61 73 20 |Connect.|serv as |
|00003d00| 73 74 72 69 6e 67 2c 20 | 70 61 74 68 20 61 73 20 |string, |path as |
|00003d10| 73 74 72 69 6e 67 00 00 | 02 14 02 14 9d 01 2d 53 |string..|......-S|
|00003d20| 75 62 20 44 6f 43 6f 6e | 6e 65 63 74 28 73 65 72 |ub DoCon|nect(ser|
|00003d30| 76 20 61 73 20 73 74 72 | 69 6e 67 2c 20 70 61 74 |v as str|ing, pat|
|00003d40| 68 20 61 73 20 73 74 72 | 69 6e 67 29 18 64 69 6d |h as str|ing).dim|
|00003d50| 20 63 72 6c 66 2c 20 68 | 6f 73 74 20 61 73 20 73 | crlf, h|ost as s|
|00003d60| 74 72 69 6e 67 14 63 72 | 6c 66 3d 63 68 72 28 31 |tring.cr|lf=chr(1|
|00003d70| 33 29 2b 63 68 72 28 31 | 30 29 00 16 69 66 20 70 |3)+chr(1|0)..if p|
|00003d80| 72 6f 78 79 73 65 72 76 | 65 72 3d 22 22 20 74 68 |roxyserv|er="" th|
|00003d90| 65 6e 00 1a 69 66 20 49 | 6e 73 74 72 28 73 65 72 |en..if I|nstr(ser|
|00003da0| 76 2c 20 22 3a 22 29 3e | 30 20 74 68 65 6e 23 6d |v, ":")>|0 then#m|
|00003db0| 65 2e 50 6f 72 74 3d 76 | 61 6c 28 6e 74 68 46 69 |e.Port=v|al(nthFi|
|00003dc0| 65 6c 64 28 73 65 72 76 | 2c 20 22 3a 22 2c 20 32 |eld(serv|, ":", 2|
|00003dd0| 29 29 21 6d 65 2e 41 64 | 64 72 65 73 73 3d 6e 74 |))!me.Ad|dress=nt|
|00003de0| 68 46 69 65 6c 64 28 73 | 65 72 76 2c 20 22 3a 22 |hField(s|erv, ":"|
|00003df0| 2c 20 31 29 20 68 6f 73 | 74 3d 6d 65 2e 41 64 64 |, 1) hos|t=me.Add|
|00003e00| 72 65 73 73 2b 22 3a 22 | 2b 73 74 72 28 6d 65 2e |ress+":"|+str(me.|
|00003e10| 70 6f 72 74 29 04 65 6c | 73 65 0a 6d 65 2e 50 6f |port).el|se.me.Po|
|00003e20| 72 74 3d 38 30 0f 6d 65 | 2e 41 64 64 72 65 73 73 |rt=80.me|.Address|
|00003e30| 3d 73 65 72 76 09 48 6f | 73 74 3d 73 65 72 76 06 |=serv.Ho|st=serv.|
|00003e40| 65 6e 64 20 69 66 00 2b | 27 69 66 20 73 65 72 76 |end if.+|'if serv|
|00003e50| 3c 3e 63 75 72 53 65 72 | 76 65 72 20 6f 72 20 28 |<>curSer|ver or (|
|00003e60| 6e 6f 74 20 4b 65 65 70 | 41 6c 69 76 65 29 20 74 |not Keep|Alive) t|
|00003e70| 68 65 6e 0a 6d 65 2e 43 | 6f 6e 6e 65 63 74 07 27 |hen.me.C|onnect.'|
|00003e80| 65 6e 64 20 69 66 00 12 | 69 66 20 4d 65 74 68 6f |end if..|if Metho|
|00003e90| 64 3d 47 65 74 20 74 68 | 65 6e 14 69 66 20 50 6f |d=Get th|en.if Po|
|00003ea0| 73 74 44 61 74 61 3c 3e | 22 22 20 74 68 65 6e 32 |stData<>|"" then2|
|00003eb0| 6d 65 2e 77 72 69 74 65 | 20 22 47 45 54 20 22 2b |me.write| "GET "+|
|00003ec0| 70 61 74 68 2b 22 3f 22 | 2b 50 6f 73 74 44 61 74 |path+"?"|+PostDat|
|00003ed0| 61 2b 22 20 48 54 54 50 | 2f 31 2e 31 22 2b 63 72 |a+" HTTP|/1.1"+cr|
|00003ee0| 6c 66 0b 50 6f 73 74 44 | 61 74 61 3d 22 22 04 65 |lf.PostD|ata="".e|
|00003ef0| 6c 73 65 25 6d 65 2e 77 | 72 69 74 65 20 22 47 45 |lse%me.w|rite "GE|
|00003f00| 54 20 22 2b 70 61 74 68 | 2b 22 20 48 54 54 50 2f |T "+path|+" HTTP/|
|00003f10| 31 2e 31 22 2b 63 72 6c | 66 06 65 6e 64 20 69 66 |1.1"+crl|f.end if|
|00003f20| 17 65 6c 73 65 69 66 20 | 4d 65 74 68 6f 64 3d 50 |.elseif |Method=P|
|00003f30| 6f 73 74 20 74 68 65 6e | 27 6d 65 2e 77 72 69 74 |ost then|'me.writ|
|00003f40| 65 20 22 50 4f 53 54 20 | 22 2b 70 61 74 68 2b 22 |e "POST |"+path+"|
|00003f50| 3f 20 48 54 54 50 2f 31 | 2e 31 22 2b 63 72 6c 66 |? HTTP/1|.1"+crlf|
|00003f60| 06 65 6e 64 20 69 66 00 | 12 27 69 66 20 4b 65 65 |.end if.|.'if Kee|
|00003f70| 70 41 6c 69 76 65 20 74 | 68 65 6e 27 27 6d 65 2e |pAlive t|hen''me.|
|00003f80| 57 72 69 74 65 20 22 43 | 6f 6e 6e 65 63 74 69 6f |Write "C|onnectio|
|00003f90| 6e 3a 20 4b 65 65 70 2d | 41 6c 69 76 65 22 2b 63 |n: Keep-|Alive"+c|
|00003fa0| 72 6c 66 07 27 65 6e 64 | 20 69 66 00 32 6d 65 2e |rlf.'end| if.2me.|
|00003fb0| 77 72 69 74 65 20 22 55 | 73 65 72 2d 41 67 65 6e |write "U|ser-Agen|
|00003fc0| 74 3a 20 22 2b 43 6c 69 | 65 6e 74 2b 22 20 28 4d |t: "+Cli|ent+" (M|
|00003fd0| 61 63 69 6e 74 6f 73 68 | 29 22 2b 63 72 6c 66 1b |acintosh|)"+crlf.|
|00003fe0| 6d 65 2e 77 72 69 74 65 | 20 22 48 6f 73 74 3a 20 |me.write| "Host: |
|00003ff0| 22 2b 48 6f 73 74 2b 63 | 72 6c 66 13 69 66 20 4c |"+Host+c|rlf.if L|
|00004000| 6f 67 69 6e 36 34 3c 3e | 22 22 20 74 68 65 6e 2d |ogin64<>|"" then-|
|00004010| 6d 65 2e 57 72 69 74 65 | 20 22 41 75 74 68 6f 72 |me.Write| "Author|
|00004020| 69 7a 61 74 69 6f 6e 3a | 20 42 61 73 69 63 20 22 |ization:| Basic "|
|00004030| 2b 4c 6f 67 69 6e 36 34 | 2b 63 72 6c 66 06 65 6e |+Login64|+crlf.en|
|00004040| 64 20 69 66 27 69 66 20 | 4d 65 74 68 6f 64 3d 50 |d if'if |Method=P|
|00004050| 6f 73 74 20 61 6e 64 20 | 6c 65 6e 28 50 6f 73 74 |ost and |len(Post|
|00004060| 44 61 74 61 29 3e 30 20 | 74 68 65 6e 08 50 6f 73 |Data)>0 |then.Pos|
|00004070| 74 46 6f 72 6d 06 65 6e | 64 20 69 66 0d 6d 65 2e |tForm.en|d if.me.|
|00004080| 77 72 69 74 65 20 63 72 | 6c 66 0a 4c 6f 67 69 6e |write cr|lf.Login|
|00004090| 36 34 3d 22 22 04 65 6c | 73 65 00 14 69 66 20 50 |64="".el|se..if P|
|000040a0| 72 6f 78 79 50 6f 72 74 | 3c 3e 30 20 74 68 65 6e |roxyPort|<>0 then|
|000040b0| 11 6d 65 2e 50 6f 72 74 | 3d 50 72 6f 78 79 50 6f |.me.Port|=ProxyPo|
|000040c0| 72 74 16 6d 65 2e 41 64 | 64 72 65 73 73 3d 50 72 |rt.me.Ad|dress=Pr|
|000040d0| 6f 78 79 53 65 72 76 65 | 72 04 65 6c 73 65 0a 6d |oxyServe|r.else.m|
|000040e0| 65 2e 50 6f 72 74 3d 38 | 30 16 6d 65 2e 41 64 64 |e.Port=8|0.me.Add|
|000040f0| 72 65 73 73 3d 50 72 6f | 78 79 53 65 72 76 65 72 |ress=Pro|xyServer|
|00004100| 06 65 6e 64 20 69 66 00 | 2b 27 69 66 20 53 65 72 |.end if.|+'if Ser|
|00004110| 76 3c 3e 63 75 72 53 65 | 72 76 65 72 20 6f 72 20 |v<>curSe|rver or |
|00004120| 28 6e 6f 74 20 4b 65 65 | 70 41 6c 69 76 65 29 20 |(not Kee|pAlive) |
|00004130| 74 68 65 6e 0a 6d 65 2e | 43 6f 6e 6e 65 63 74 05 |then.me.|Connect.|
|00004140| 27 62 65 65 70 07 27 65 | 6e 64 20 69 66 00 12 69 |'beep.'e|nd if..i|
|00004150| 66 20 4d 65 74 68 6f 64 | 3d 47 65 74 20 74 68 65 |f Method|=Get the|
|00004160| 6e 14 69 66 20 50 6f 73 | 74 44 61 74 61 3c 3e 22 |n.if Pos|tData<>"|
|00004170| 22 20 74 68 65 6e 3e 6d | 65 2e 77 72 69 74 65 20 |" then>m|e.write |
|00004180| 22 47 45 54 20 68 74 74 | 70 3a 2f 2f 22 2b 73 65 |"GET htt|p://"+se|
|00004190| 72 76 2b 70 61 74 68 2b | 22 3f 22 2b 50 6f 73 74 |rv+path+|"?"+Post|
|000041a0| 44 61 74 61 2b 22 20 48 | 54 54 50 2f 31 2e 31 22 |Data+" H|TTP/1.1"|
|000041b0| 2b 63 72 6c 66 0b 50 6f | 73 74 44 61 74 61 3d 22 |+crlf.Po|stData="|
|000041c0| 22 04 65 6c 73 65 31 6d | 65 2e 77 72 69 74 65 20 |".else1m|e.write |
|000041d0| 22 47 45 54 20 68 74 74 | 70 3a 2f 2f 22 2b 73 65 |"GET htt|p://"+se|
|000041e0| 72 76 2b 70 61 74 68 2b | 22 20 48 54 54 50 2f 31 |rv+path+|" HTTP/1|
|000041f0| 2e 31 22 2b 63 72 6c 66 | 06 65 6e 64 20 69 66 31 |.1"+crlf|.end if1|
|00004200| 6d 65 2e 77 72 69 74 65 | 20 22 47 45 54 20 68 74 |me.write| "GET ht|
|00004210| 74 70 3a 2f 2f 22 2b 73 | 65 72 76 2b 70 61 74 68 |tp://"+s|erv+path|
|00004220| 2b 22 20 48 54 54 50 2f | 31 2e 31 22 2b 63 72 6c |+" HTTP/|1.1"+crl|
|00004230| 66 04 65 6c 73 65 33 6d | 65 2e 57 72 69 74 65 20 |f.else3m|e.Write |
|00004240| 22 50 4f 53 54 20 68 74 | 74 70 3a 2f 2f 22 2b 73 |"POST ht|tp://"+s|
|00004250| 65 72 76 2b 70 61 74 68 | 2b 22 3f 20 48 54 54 50 |erv+path|+"? HTTP|
|00004260| 2f 31 2e 31 22 2b 63 72 | 6c 66 06 65 6e 64 20 69 |/1.1"+cr|lf.end i|
|00004270| 66 00 12 27 69 66 20 4b | 65 65 70 41 6c 69 76 65 |f..'if K|eepAlive|
|00004280| 20 74 68 65 6e 27 27 6d | 65 2e 57 72 69 74 65 20 | then''m|e.Write |
|00004290| 22 43 6f 6e 6e 65 63 74 | 69 6f 6e 3a 20 4b 65 65 |"Connect|ion: Kee|
|000042a0| 70 2d 41 6c 69 76 65 22 | 2b 63 72 6c 66 07 27 65 |p-Alive"|+crlf.'e|
|000042b0| 6e 64 20 69 66 00 32 6d | 65 2e 77 72 69 74 65 20 |nd if.2m|e.write |
|000042c0| 22 55 73 65 72 2d 41 67 | 65 6e 74 3a 20 22 2b 43 |"User-Ag|ent: "+C|
|000042d0| 6c 69 65 6e 74 2b 22 20 | 28 4d 61 63 69 6e 74 6f |lient+" |(Macinto|
|000042e0| 73 68 29 22 2b 63 72 6c | 66 00 00 13 69 66 20 6c |sh)"+crl|f...if l|
|000042f0| 6f 67 69 6e 36 34 3c 3e | 22 22 20 74 68 65 6e 2d |ogin64<>|"" then-|
|00004300| 6d 65 2e 57 72 69 74 65 | 20 22 41 75 74 68 6f 72 |me.Write| "Author|
|00004310| 69 7a 61 74 69 6f 6e 3a | 20 42 61 73 69 63 20 22 |ization:| Basic "|
|00004320| 2b 4c 6f 67 69 6e 36 34 | 2b 63 72 6c 66 06 65 6e |+Login64|+crlf.en|
|00004330| 64 20 69 66 00 27 69 66 | 20 4d 65 74 68 6f 64 3d |d if.'if| Method=|
|00004340| 50 6f 73 74 20 61 6e 64 | 20 6c 65 6e 28 50 6f 73 |Post and| len(Pos|
|00004350| 74 44 61 74 61 29 3e 30 | 20 74 68 65 6e 08 50 6f |tData)>0| then.Po|
|00004360| 73 74 46 6f 72 6d 06 65 | 6e 64 20 69 66 0d 6d 65 |stForm.e|nd if.me|
|00004370| 2e 77 72 69 74 65 20 63 | 72 6c 66 0a 4c 6f 67 69 |.write c|rlf.Logi|
|00004380| 6e 36 34 3d 22 22 06 65 | 6e 64 20 69 66 00 0a 6c |n64="".e|nd if..l|
|00004390| 6f 67 69 6e 36 34 3d 22 | 22 0e 63 75 72 53 65 72 |ogin64="|".curSer|
|000043a0| 76 65 72 3d 53 65 72 76 | 07 45 6e 64 20 53 75 62 |ver=Serv|.End Sub|
|000043b0| 0e 44 6f 46 69 6c 65 46 | 69 6e 69 73 68 65 64 00 |.DoFileF|inished.|
|000043c0| 00 00 02 20 02 20 2e 14 | 53 75 62 20 44 6f 46 69 |... . ..|Sub DoFi|
|000043d0| 6c 65 46 69 6e 69 73 68 | 65 64 28 29 32 64 69 6d |leFinish|ed()2dim|
|000043e0| 20 74 65 6d 70 32 2c 20 | 69 2c 20 6e 20 61 73 20 | temp2, |i, n as |
|000043f0| 69 6e 74 65 67 65 72 2c | 20 73 74 20 61 73 20 54 |integer,| st as T|
|00004400| 65 78 74 4f 75 74 70 75 | 74 53 74 72 65 61 6d 20 |extOutpu|tStream |
|00004410| 64 69 6d 20 74 65 6d 70 | 20 61 73 20 73 74 72 69 |dim temp| as stri|
|00004420| 6e 67 2c 20 62 20 61 73 | 20 62 6f 6f 6c 65 61 6e |ng, b as| boolean|
|00004430| 00 11 2f 2f 20 49 74 27 | 73 20 66 69 6e 69 73 68 |..// It'|s finish|
|00004440| 65 64 21 13 69 66 20 6c | 6f 67 69 6e 36 34 3c 3e |ed!.if l|ogin64<>|
|00004450| 22 22 20 74 68 65 6e 10 | 69 66 20 70 61 73 73 6c |"" then.|if passl|
|00004460| 61 73 74 20 74 68 65 6e | 16 62 3d 4c 6f 67 69 6e |ast then|.b=Login|
|00004470| 46 61 69 6c 65 64 28 63 | 75 72 53 69 74 65 29 0d |Failed(c|urSite).|
|00004480| 70 61 73 73 6c 61 73 74 | 3d 74 72 75 65 04 65 6c |passlast|=true.el|
|00004490| 73 65 06 62 3d 74 72 75 | 65 0d 70 61 73 73 6c 61 |se.b=tru|e.passla|
|000044a0| 73 74 3d 74 72 75 65 06 | 65 6e 64 20 69 66 00 09 |st=true.|end if..|
|000044b0| 69 66 20 62 20 74 68 65 | 6e 1d 74 65 6d 70 32 3d |if b the|n.temp2=|
|000044c0| 44 6f 47 65 74 50 61 73 | 73 28 76 61 6c 28 6c 6f |DoGetPas|s(val(lo|
|000044d0| 67 69 6e 36 34 29 29 0f | 69 66 20 74 65 6d 70 32 |gin64)).|if temp2|
|000044e0| 3d 30 20 74 68 65 6e 16 | 73 74 3d 66 69 6c 65 2e |=0 then.|st=file.|
|000044f0| 43 72 65 61 74 65 54 65 | 78 74 46 69 6c 65 08 73 |CreateTe|xtFile.s|
|00004500| 74 2e 63 6c 6f 73 65 0f | 47 65 74 48 54 54 50 20 |t.close.|GetHTTP |
|00004510| 63 75 72 53 69 74 65 06 | 72 65 74 75 72 6e 06 65 |curSite.|return.e|
|00004520| 6e 64 20 69 66 00 04 65 | 6c 73 65 0e 70 61 73 73 |nd if..e|lse.pass|
|00004530| 6c 61 73 74 3d 66 61 6c | 73 65 06 65 6e 64 20 69 |last=fal|se.end i|
|00004540| 66 00 06 65 6e 64 20 69 | 66 00 10 69 66 20 44 4c |f..end i|f..if DL|
|00004550| 54 79 70 65 3d 31 20 74 | 68 65 6e 08 44 4c 54 79 |Type=1 t|hen.DLTy|
|00004560| 70 65 3d 30 0e 70 61 73 | 73 6c 61 73 74 3d 66 61 |pe=0.pas|slast=fa|
|00004570| 6c 73 65 00 21 69 66 20 | 6c 65 66 74 28 66 69 6c |lse.!if |left(fil|
|00004580| 65 74 79 70 65 2c 20 35 | 29 3d 22 69 6d 61 67 65 |etype, 5|)="image|
|00004590| 22 20 74 68 65 6e 33 44 | 4c 46 69 6e 69 73 68 65 |" then3D|LFinishe|
|000045a0| 64 20 66 69 6c 65 2c 20 | 74 65 78 74 2c 20 66 69 |d file, |text, fi|
|000045b0| 6c 65 2e 4f 70 65 6e 41 | 73 50 69 63 74 75 72 65 |le.OpenA|sPicture|
|000045c0| 2c 20 66 69 6c 65 74 79 | 70 65 04 65 6c 73 65 3b |, filety|pe.else;|
|000045d0| 44 4c 46 69 6e 69 73 68 | 65 64 20 66 69 6c 65 2c |DLFinish|ed file,|
|000045e0| 20 66 69 6c 65 2e 4f 70 | 65 6e 41 73 54 65 78 74 | file.Op|enAsText|
|000045f0| 46 69 6c 65 2e 52 65 61 | 64 41 6c 6c 2c 20 6e 69 |File.Rea|dAll, ni|
|00004600| 6c 2c 20 66 69 6c 65 74 | 79 70 65 06 65 6e 64 20 |l, filet|ype.end |
|00004610| 69 66 01 20 04 65 6c 73 | 65 0e 70 61 73 73 6c 61 |if. .els|e.passla|
|00004620| 73 74 3d 66 61 6c 73 65 | 22 44 4c 66 69 6e 69 73 |st=false|"DLfinis|
|00004630| 68 65 64 20 66 69 6c 65 | 2c 20 22 22 2c 20 6e 69 |hed file|, "", ni|
|00004640| 6c 2c 20 66 69 6c 65 74 | 79 70 65 06 65 6e 64 20 |l, filet|ype.end |
|00004650| 69 66 00 07 74 65 78 74 | 3d 22 22 07 45 6e 64 20 |if..text|="".End |
|00004660| 53 75 62 09 44 6f 47 65 | 74 50 61 73 73 0c 6e 20 |Sub.DoGe|tPass.n |
|00004670| 61 73 20 69 6e 74 65 67 | 65 72 07 69 6e 74 65 67 |as integ|er.integ|
|00004680| 65 72 00 01 12 01 12 17 | 2b 46 75 6e 63 74 69 6f |er......|+Functio|
|00004690| 6e 20 44 6f 47 65 74 50 | 61 73 73 28 6e 20 61 73 |n DoGetP|ass(n as|
|000046a0| 20 69 6e 74 65 67 65 72 | 29 20 41 73 20 69 6e 74 | integer|) As int|
|000046b0| 65 67 65 72 12 64 69 6d | 20 73 2c 20 72 20 61 73 |eger.dim| s, r as|
|000046c0| 20 73 74 72 69 6e 67 00 | 14 72 3d 74 72 69 6d 28 | string.|.r=trim(|
|000046d0| 48 65 61 64 65 72 56 61 | 6c 28 6e 29 29 00 26 69 |HeaderVa|l(n)).&i|
|000046e0| 66 20 6c 6f 77 65 72 63 | 61 73 65 28 6c 65 66 74 |f lowerc|ase(left|
|000046f0| 28 72 2c 20 35 29 29 3c | 3e 22 42 61 73 69 63 22 |(r, 5))<|>"Basic"|
|00004700| 20 74 68 65 6e 20 2f 2f | 20 55 6e 6b 6e 6f 77 6e | then //| Unknown|
|00004710| 20 61 75 74 68 65 6e 74 | 69 63 61 74 69 6f 6e 20 | authent|ication |
|00004720| 73 63 68 65 6d 65 09 72 | 65 74 75 72 6e 20 2d 31 |scheme.r|eturn -1|
|00004730| 06 65 6e 64 20 69 66 00 | 1e 72 3d 6d 69 64 28 72 |.end if.|.r=mid(r|
|00004740| 2c 20 69 6e 73 74 72 28 | 72 2c 20 22 72 65 61 6c |, instr(|r, "real|
|00004750| 6d 3d 22 29 2b 37 29 1c | 72 3d 72 65 70 6c 61 63 |m=")+7).|r=replac|
|00004760| 65 61 6c 6c 28 72 2c 20 | 63 68 72 28 33 34 29 2c |eall(r, |chr(34),|
|00004770| 20 22 22 29 00 13 73 3d | 50 61 73 73 77 6f 72 64 | "")..s=|Password|
|00004780| 4e 65 65 64 65 64 28 72 | 29 00 28 69 66 20 73 3d |Needed(r|).(if s=|
|00004790| 22 22 20 6f 72 20 73 3d | 22 3a 22 20 6f 72 20 69 |"" or s=|":" or i|
|000047a0| 6e 73 74 72 28 73 2c 20 | 22 3a 22 29 3d 30 20 74 |nstr(s, |":")=0 t|
|000047b0| 68 65 6e 09 43 61 6e 63 | 65 6c 6c 65 64 09 72 65 |hen.Canc|elled.re|
|000047c0| 74 75 72 6e 20 2d 31 06 | 65 6e 64 20 69 66 00 14 |turn -1.|end if..|
|000047d0| 4c 6f 67 69 6e 36 34 3d | 47 65 74 62 61 73 65 36 |Login64=|Getbase6|
|000047e0| 34 28 73 29 00 0c 45 6e | 64 20 46 75 6e 63 74 69 |4(s)..En|d Functi|
|000047f0| 6f 6e 08 44 6f 77 6e 6c | 6f 61 64 1e 55 52 4c 20 |on.Downl|oad.URL |
|00004800| 61 73 20 73 74 72 69 6e | 67 2c 20 66 20 61 73 20 |as strin|g, f as |
|00004810| 66 6f 6c 64 65 72 69 74 | 65 6d 00 00 01 00 01 00 |folderit|em......|
|00004820| 0b 2c 53 75 62 20 44 6f | 77 6e 6c 6f 61 64 28 55 |.,Sub Do|wnload(U|
|00004830| 52 4c 20 61 73 20 73 74 | 72 69 6e 67 2c 20 66 20 |RL as st|ring, f |
|00004840| 61 73 20 66 6f 6c 64 65 | 72 69 74 65 6d 29 00 18 |as folde|ritem)..|
|00004850| 49 66 20 4c 6f 67 69 6e | 41 6e 64 50 61 73 73 3c |If Login|AndPass<|
|00004860| 3e 22 22 20 74 68 65 6e | 1f 4c 6f 67 69 6e 36 34 |>"" then|.Login64|
|00004870| 3d 47 65 74 42 61 73 65 | 36 34 28 4c 6f 67 69 6e |=GetBase|64(Login|
|00004880| 41 6e 64 50 61 73 73 29 | 0f 4c 6f 67 69 6e 41 6e |AndPass)|.LoginAn|
|00004890| 64 50 61 73 73 3d 22 22 | 06 65 6e 64 20 69 66 00 |dPass=""|.end if.|
|000048a0| 06 66 69 6c 65 3d 66 08 | 44 4c 54 79 70 65 3d 30 |.file=f.|DLType=0|
|000048b0| 0b 47 65 74 48 54 54 50 | 20 55 52 4c 07 45 6e 64 |.GetHTTP| URL.End|
|000048c0| 20 53 75 62 0a 46 6f 72 | 6d 61 74 53 69 7a 65 0d | Sub.For|matSize.|
|000048d0| 61 6d 74 20 61 73 20 73 | 69 6e 67 6c 65 06 73 74 |amt as s|ingle.st|
|000048e0| 72 69 6e 67 00 02 00 02 | 00 1b 2c 46 75 6e 63 74 |ring....|..,Funct|
|000048f0| 69 6f 6e 20 46 6f 72 6d | 61 74 53 69 7a 65 28 61 |ion Form|atSize(a|
|00004900| 6d 74 20 61 73 20 73 69 | 6e 67 6c 65 29 20 41 73 |mt as si|ngle) As|
|00004910| 20 73 74 72 69 6e 67 14 | 64 69 6d 20 72 65 74 2c | string.|dim ret,|
|00004920| 20 72 20 61 73 20 73 74 | 72 69 6e 67 00 10 69 66 | r as st|ring..if|
|00004930| 20 61 6d 74 3c 31 30 32 | 34 20 74 68 65 6e 13 72 | amt<102|4 then.r|
|00004940| 65 74 75 72 6e 20 73 74 | 72 28 61 6d 74 29 2b 22 |eturn st|r(amt)+"|
|00004950| 42 22 19 65 6c 73 65 69 | 66 20 61 6d 74 3c 28 31 |B".elsei|f amt<(1|
|00004960| 30 34 38 35 37 36 29 20 | 74 68 65 6e 11 72 20 3d |048576) |then.r =|
|00004970| 20 73 74 72 28 61 6d 74 | 2f 31 30 32 34 29 17 69 | str(amt|/1024).i|
|00004980| 66 20 69 6e 73 74 72 28 | 72 2c 20 22 2e 22 29 3e |f instr(|r, ".")>|
|00004990| 30 20 74 68 65 6e 1b 72 | 65 74 3d 6e 74 68 46 69 |0 then.r|et=nthFi|
|000049a0| 65 6c 64 28 72 2c 20 22 | 2e 22 2c 20 31 29 2b 22 |eld(r, "|.", 1)+"|
|000049b0| 2e 22 24 72 65 74 3d 72 | 65 74 2b 6c 65 66 74 28 |."$ret=r|et+left(|
|000049c0| 6e 74 68 46 69 65 6c 64 | 28 72 2c 20 22 2e 22 2c |nthField|(r, ".",|
|000049d0| 20 32 29 2c 20 31 29 04 | 65 6c 73 65 0a 72 65 74 | 2), 1).|else.ret|
|000049e0| 3d 72 2b 22 2e 30 22 06 | 65 6e 64 20 69 66 0b 72 |=r+".0".|end if.r|
|000049f0| 65 74 3d 72 65 74 2b 22 | 4b 22 0a 72 65 74 75 72 |et=ret+"|K".retur|
|00004a00| 6e 20 72 65 74 04 65 6c | 73 65 14 72 20 3d 20 73 |n ret.el|se.r = s|
|00004a10| 74 72 28 61 6d 74 2f 31 | 30 34 38 35 37 36 29 17 |tr(amt/1|048576).|
|00004a20| 69 66 20 69 6e 73 74 72 | 28 72 2c 20 22 2e 22 29 |if instr|(r, ".")|
|00004a30| 3e 30 20 74 68 65 6e 1b | 72 65 74 3d 6e 74 68 46 |>0 then.|ret=nthF|
|00004a40| 69 65 6c 64 28 72 2c 20 | 22 2e 22 2c 20 31 29 2b |ield(r, |".", 1)+|
|00004a50| 22 2e 22 24 72 65 74 3d | 72 65 74 2b 6c 65 66 74 |"."$ret=|ret+left|
|00004a60| 28 6e 74 68 46 69 65 6c | 64 28 72 2c 20 22 2e 22 |(nthFiel|d(r, "."|
|00004a70| 2c 20 32 29 2c 20 31 29 | 04 65 6c 73 65 0a 72 65 |, 2), 1)|.else.re|
|00004a80| 74 3d 72 2b 22 2e 30 22 | 06 65 6e 64 20 69 66 0b |t=r+".0"|.end if.|
|00004a90| 72 65 74 3d 72 65 74 2b | 22 4d 22 0a 72 65 74 75 |ret=ret+|"M".retu|
|00004aa0| 72 6e 20 72 65 74 06 65 | 6e 64 20 69 66 0c 45 6e |rn ret.e|nd if.En|
|00004ab0| 64 20 46 75 6e 63 74 69 | 6f 6e 09 46 6f 72 6d 61 |d Functi|on.Forma|
|00004ac0| 74 55 52 4c 0e 74 55 52 | 4c 20 61 73 20 73 74 72 |tURL.tUR|L as str|
|00004ad0| 69 6e 67 06 73 74 72 69 | 6e 67 00 01 1d 01 1d 13 |ing.stri|ng......|
|00004ae0| 2c 46 75 6e 63 74 69 6f | 6e 20 46 6f 72 6d 61 74 |,Functio|n Format|
|00004af0| 55 52 4c 28 74 55 52 4c | 20 61 73 20 73 74 72 69 |URL(tURL| as stri|
|00004b00| 6e 67 29 20 41 73 20 73 | 74 72 69 6e 67 1d 64 69 |ng) As s|tring.di|
|00004b10| 6d 20 55 52 4c 2c 20 73 | 65 72 76 2c 20 70 61 74 |m URL, s|erv, pat|
|00004b20| 68 20 61 73 20 73 74 72 | 69 6e 67 00 08 55 52 4c |h as str|ing..URL|
|00004b30| 3d 74 55 52 4c 00 29 69 | 66 20 6c 6f 77 65 72 63 |=tURL.)i|f lowerc|
|00004b40| 61 73 65 28 6c 65 66 74 | 28 55 52 4c 2c 20 37 29 |ase(left|(URL, 7)|
|00004b50| 29 3d 22 68 74 74 70 3a | 2f 2f 22 20 74 68 65 6e |)="http:|//" then|
|00004b60| 0f 55 52 4c 3d 6d 69 64 | 28 55 52 4c 2c 20 38 29 |.URL=mid|(URL, 8)|
|00004b70| 06 65 6e 64 20 69 66 00 | 19 69 66 20 69 6e 73 74 |.end if.|.if inst|
|00004b80| 72 28 55 52 4c 2c 20 22 | 2f 22 29 3e 30 20 74 68 |r(URL, "|/")>0 th|
|00004b90| 65 6e 21 73 65 72 76 3d | 6c 65 66 74 28 55 52 4c |en!serv=|left(URL|
|00004ba0| 2c 20 69 6e 73 74 72 28 | 55 52 4c 2c 20 22 2f 22 |, instr(|URL, "/"|
|00004bb0| 29 2d 31 29 1e 70 61 74 | 68 3d 6d 69 64 28 55 52 |)-1).pat|h=mid(UR|
|00004bc0| 4c 2c 20 69 6e 73 74 72 | 28 55 52 4c 2c 20 22 2f |L, instr|(URL, "/|
|00004bd0| 22 29 29 04 65 6c 73 65 | 08 73 65 72 76 3d 55 52 |")).else|.serv=UR|
|00004be0| 4c 08 70 61 74 68 3d 22 | 2f 22 06 65 6e 64 20 69 |L.path="|/".end i|
|00004bf0| 66 00 1a 72 65 74 75 72 | 6e 20 22 68 74 74 70 3a |f..retur|n "http:|
|00004c00| 2f 2f 22 2b 73 65 72 76 | 2b 70 61 74 68 0c 45 6e |//"+serv|+path.En|
|00004c10| 64 20 46 75 6e 63 74 69 | 6f 6e 09 47 65 74 42 61 |d Functi|on.GetBa|
|00004c20| 73 65 36 34 0d 74 78 74 | 20 61 73 20 73 74 72 69 |se64.txt| as stri|
|00004c30| 6e 67 06 73 74 72 69 6e | 67 00 01 2c 01 2c 19 2b |ng.strin|g..,.,.+|
|00004c40| 46 75 6e 63 74 69 6f 6e | 20 47 65 74 42 61 73 65 |Function| GetBase|
|00004c50| 36 34 28 74 78 74 20 61 | 73 20 73 74 72 69 6e 67 |64(txt a|s string|
|00004c60| 29 20 41 73 20 73 74 72 | 69 6e 67 2c 64 69 6d 20 |) As str|ing,dim |
|00004c70| 73 2c 20 72 2c 20 6f 28 | 30 29 2c 20 70 20 61 73 |s, r, o(|0), p as|
|00004c80| 20 73 74 72 69 6e 67 2c | 20 49 2c 20 78 20 61 73 | string,| I, x as|
|00004c90| 20 69 6e 74 65 67 65 72 | 00 05 73 3d 74 78 74 00 | integer|..s=txt.|
|00004ca0| 13 66 6f 72 20 49 20 3d | 20 31 20 74 6f 20 6c 65 |.for I =| 1 to le|
|00004cb0| 6e 28 73 29 1e 72 3d 72 | 2b 20 47 65 74 62 69 6e |n(s).r=r|+ Getbin|
|00004cc0| 28 61 73 63 28 6d 69 64 | 28 73 2c 20 49 2c 20 31 |(asc(mid|(s, I, 1|
|00004cd0| 29 29 29 04 6e 65 78 74 | 00 1a 66 6f 72 20 69 20 |))).next|..for i |
|00004ce0| 3d 20 31 20 74 6f 20 6c | 65 6e 28 72 29 20 73 74 |= 1 to l|en(r) st|
|00004cf0| 65 70 20 36 12 69 66 20 | 6c 65 6e 28 72 29 2d 49 |ep 6.if |len(r)-I|
|00004d00| 3c 36 20 74 68 65 6e 17 | 6f 2e 41 70 70 65 6e 64 |<6 then.|o.Append|
|00004d10| 20 22 30 30 22 2b 6d 69 | 64 28 72 2c 20 49 29 15 | "00"+mi|d(r, I).|
|00004d20| 78 3d 38 2d 6c 65 6e 28 | 6f 28 75 62 6f 75 6e 64 |x=8-len(|o(ubound|
|00004d30| 28 6f 29 29 29 2b 6f 28 | 75 62 6f 75 6e 64 28 6f |(o)))+o(|ubound(o|
|00004d40| 29 29 3d 6f 28 75 62 6f | 75 6e 64 28 6f 29 29 2b |))=o(ubo|und(o))+|
|00004d50| 47 65 74 53 74 72 50 61 | 74 28 78 2c 20 22 30 22 |GetStrPa|t(x, "0"|
|00004d60| 29 04 65 6c 73 65 1a 6f | 2e 41 70 70 65 6e 64 20 |).else.o|.Append |
|00004d70| 22 30 30 22 2b 6d 69 64 | 28 72 2c 20 49 2c 20 36 |"00"+mid|(r, I, 6|
|00004d80| 29 06 65 6e 64 20 69 66 | 04 6e 65 78 74 00 16 66 |).end if|.next..f|
|00004d90| 6f 72 20 49 20 3d 20 31 | 20 74 6f 20 75 62 6f 75 |or I = 1| to ubou|
|00004da0| 6e 64 28 6f 29 1b 70 3d | 70 2b 67 65 74 63 68 61 |nd(o).p=|p+getcha|
|00004db0| 72 28 76 61 6c 28 22 26 | 62 22 2b 6f 28 49 29 29 |r(val("&|b"+o(I))|
|00004dc0| 29 04 6e 65 78 74 00 08 | 72 65 74 75 72 6e 20 70 |).next..|return p|
|00004dd0| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 06 47 65 |.End Fun|ction.Ge|
|00004de0| 74 42 69 6e 0c 6d 20 61 | 73 20 69 6e 74 65 67 65 |tBin.m a|s intege|
|00004df0| 72 06 73 74 72 69 6e 67 | 00 01 20 01 20 0f 27 46 |r.string|.. . .'F|
|00004e00| 75 6e 63 74 69 6f 6e 20 | 47 65 74 42 69 6e 28 6d |unction |GetBin(m|
|00004e10| 20 61 73 20 69 6e 74 65 | 67 65 72 29 20 41 73 20 | as inte|ger) As |
|00004e20| 73 74 72 69 6e 67 20 64 | 69 6d 20 6e 2c 20 49 20 |string d|im n, I |
|00004e30| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 73 20 61 73 |as integ|er, s as|
|00004e40| 20 73 74 72 69 6e 67 00 | 03 6e 3d 6d 00 12 66 6f | string.|.n=m..fo|
|00004e50| 72 20 49 20 3d 20 37 20 | 64 6f 77 6e 74 6f 20 30 |r I = 7 |downto 0|
|00004e60| 14 69 66 20 6e 3e 3d 50 | 6f 77 28 32 2c 20 49 29 |.if n>=P|ow(2, I)|
|00004e70| 20 74 68 65 6e 0c 6e 3d | 6e 2d 50 6f 77 28 32 2c | then.n=|n-Pow(2,|
|00004e80| 49 29 07 73 3d 73 2b 22 | 31 22 04 65 6c 73 65 07 |I).s=s+"|1".else.|
|00004e90| 73 3d 73 2b 22 30 22 06 | 65 6e 64 20 69 66 04 6e |s=s+"0".|end if.n|
|00004ea0| 65 78 74 08 72 65 74 75 | 72 6e 20 73 0c 45 6e 64 |ext.retu|rn s.End|
|00004eb0| 20 46 75 6e 63 74 69 6f | 6e 07 47 65 74 43 68 61 | Functio|n.GetCha|
|00004ec0| 72 0c 6e 20 61 73 20 69 | 6e 74 65 67 65 72 06 73 |r.n as i|nteger.s|
|00004ed0| 74 72 69 6e 67 00 01 00 | 01 00 0e 28 46 75 6e 63 |tring...|...(Func|
|00004ee0| 74 69 6f 6e 20 47 65 74 | 43 68 61 72 28 6e 20 61 |tion Get|Char(n a|
|00004ef0| 73 20 69 6e 74 65 67 65 | 72 29 20 41 73 20 73 74 |s intege|r) As st|
|00004f00| 72 69 6e 67 00 0d 69 66 | 20 6e 3c 3d 32 35 20 74 |ring..if| n<=25 t|
|00004f10| 68 65 6e 17 72 65 74 75 | 72 6e 20 63 68 72 28 6e |hen.retu|rn chr(n|
|00004f20| 2b 36 35 29 20 2f 2f 20 | 41 2d 5a 11 65 6c 73 65 |+65) // |A-Z.else|
|00004f30| 69 66 20 6e 3c 3d 35 31 | 20 74 68 65 6e 17 72 65 |if n<=51| then.re|
|00004f40| 74 75 72 6e 20 63 68 72 | 28 6e 2b 37 31 29 20 2f |turn chr|(n+71) /|
|00004f50| 2f 20 61 2d 7a 11 65 6c | 73 65 69 66 20 6e 3c 3d |/ a-z.el|seif n<=|
|00004f60| 36 31 20 74 68 65 6e 17 | 72 65 74 75 72 6e 20 63 |61 then.|return c|
|00004f70| 68 72 28 6e 2d 34 29 20 | 20 2f 2f 20 30 2d 39 10 |hr(n-4) | // 0-9.|
|00004f80| 65 6c 73 65 69 66 20 6e | 3d 36 32 20 74 68 65 6e |elseif n|=62 then|
|00004f90| 15 72 65 74 75 72 6e 20 | 63 68 72 28 34 33 29 20 |.return |chr(43) |
|00004fa0| 20 20 2f 2f 20 2b 10 65 | 6c 73 65 69 66 20 6e 3d |  // +.e|lseif n=|
|00004fb0| 36 33 20 74 68 65 6e 15 | 72 65 74 75 72 6e 20 63 |63 then.|return c|
|00004fc0| 68 72 28 34 37 29 20 20 | 20 2f 2f 20 2f 06 65 6e |hr(47)  | // /.en|
|00004fd0| 64 20 69 66 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |d if.End| Functio|
|00004fe0| 6e 0a 47 65 74 44 72 6f | 70 4f 66 66 0b 74 20 61 |n.GetDro|pOff.t a|
|00004ff0| 73 20 73 74 72 69 6e 67 | 07 69 6e 74 65 67 65 72 |s string|.integer|
|00005000| 00 01 20 01 20 13 2b 46 | 75 6e 63 74 69 6f 6e 20 |.. . .+F|unction |
|00005010| 47 65 74 44 72 6f 70 4f | 66 66 28 74 20 61 73 20 |GetDropO|ff(t as |
|00005020| 73 74 72 69 6e 67 29 20 | 41 73 20 69 6e 74 65 67 |string) |As integ|
|00005030| 65 72 20 64 69 6d 20 49 | 2c 20 6e 20 61 73 20 69 |er dim I|, n as i|
|00005040| 6e 74 65 67 65 72 2c 20 | 6c 20 61 73 20 73 74 72 |nteger, |l as str|
|00005050| 69 6e 67 00 03 6e 3d 30 | 00 0b 69 66 20 6e 3d 31 |ing..n=0|..if n=1|
|00005060| 20 74 68 65 6e 24 46 6f | 72 20 49 20 3d 20 31 20 | then$Fo|r I = 1 |
|00005070| 74 6f 20 63 6f 75 6e 74 | 46 69 65 6c 64 73 28 74 |to count|Fields(t|
|00005080| 2c 20 63 68 72 28 31 33 | 29 29 19 6c 3d 6e 74 68 |, chr(13|)).l=nth|
|00005090| 46 69 65 6c 64 28 74 2c | 20 63 68 72 28 31 33 29 |Field(t,| chr(13)|
|000050a0| 2c 20 49 29 24 69 66 20 | 6c 65 66 74 28 6c 2c 20 |, I)$if |left(l, |
|000050b0| 31 34 29 3d 22 43 6f 6e | 74 65 6e 74 2d 54 79 70 |14)="Con|tent-Typ|
|000050c0| 65 3a 20 22 20 74 68 65 | 6e 00 1b 72 65 74 75 72 |e: " the|n..retur|
|000050d0| 6e 20 69 6e 73 74 72 28 | 74 2c 20 6c 29 2b 6c 65 |n instr(|t, l)+le|
|000050e0| 6e 28 6c 29 2b 32 06 65 | 6e 64 20 69 66 04 6e 65 |n(l)+2.e|nd if.ne|
|000050f0| 78 74 00 0f 65 6c 73 65 | 69 66 20 6e 3d 30 20 74 |xt..else|if n=0 t|
|00005100| 68 65 6e 23 6e 3d 69 6e | 73 74 72 28 74 2c 20 63 |hen#n=in|str(t, c|
|00005110| 68 72 28 31 30 29 2b 63 | 68 72 28 31 33 29 2b 63 |hr(10)+c|hr(13)+c|
|00005120| 68 72 28 31 30 29 29 0a | 72 65 74 75 72 6e 20 6e |hr(10)).|return n|
|00005130| 2b 33 06 65 6e 64 20 69 | 66 0c 45 6e 64 20 46 75 |+3.end i|f.End Fu|
|00005140| 6e 63 74 69 6f 6e 07 47 | 65 74 46 69 6c 65 0e 74 |nction.G|etFile.t|
|00005150| 55 52 4c 20 61 73 20 73 | 74 72 69 6e 67 00 00 01 |URL as s|tring...|
|00005160| 21 01 21 19 1b 53 75 62 | 20 47 65 74 46 69 6c 65 |!.!..Sub| GetFile|
|00005170| 28 74 55 52 4c 20 61 73 | 20 73 74 72 69 6e 67 29 |(tURL as| string)|
|00005180| 21 64 69 6d 20 66 20 61 | 73 20 66 6f 6c 64 65 72 |!dim f a|s folder|
|00005190| 69 74 65 6d 2c 20 49 20 | 61 73 20 69 6e 74 65 67 |item, I |as integ|
|000051a0| 65 72 00 11 66 3d 54 65 | 6d 70 6f 72 61 72 79 46 |er..f=Te|mporaryF|
|000051b0| 6f 6c 64 65 72 05 49 20 | 3d 20 31 00 02 44 6f 2e |older.I |= 1..Do.|
|000051c0| 69 66 20 6e 6f 74 20 66 | 2e 43 68 69 6c 64 28 22 |if not f|.Child("|
|000051d0| 52 42 20 48 54 54 50 20 | 23 22 2b 73 74 72 28 49 |RB HTTP |#"+str(I|
|000051e0| 29 29 2e 45 78 69 73 74 | 73 20 74 68 65 6e 04 65 |)).Exist|s then.e|
|000051f0| 78 69 74 06 65 6e 64 20 | 69 66 05 49 3d 49 2b 31 |xit.end |if.I=I+1|
|00005200| 04 6c 6f 6f 70 00 1d 66 | 3d 66 2e 43 68 69 6c 64 |.loop..f|=f.Child|
|00005210| 28 22 52 42 20 48 54 54 | 50 20 23 22 2b 73 74 72 |("RB HTT|P #"+str|
|00005220| 28 49 29 29 00 06 46 69 | 6c 65 3d 46 00 18 49 66 |(I))..Fi|le=F..If|
|00005230| 20 4c 6f 67 69 6e 41 6e | 64 50 61 73 73 3c 3e 22 | LoginAn|dPass<>"|
|00005240| 22 20 74 68 65 6e 1f 4c | 6f 67 69 6e 36 34 3d 47 |" then.L|ogin64=G|
|00005250| 65 74 42 61 73 65 36 34 | 28 4c 6f 67 69 6e 41 6e |etBase64|(LoginAn|
|00005260| 64 50 61 73 73 29 0f 4c | 6f 67 69 6e 41 6e 64 50 |dPass).L|oginAndP|
|00005270| 61 73 73 3d 22 22 06 65 | 6e 64 20 69 66 00 08 44 |ass="".e|nd if..D|
|00005280| 4c 54 79 70 65 3d 31 0c | 47 65 74 48 54 54 50 20 |LType=1.|GetHTTP |
|00005290| 74 55 52 4c 07 45 6e 64 | 20 53 75 62 07 67 65 74 |tURL.End| Sub.get|
|000052a0| 48 54 54 50 0e 74 55 52 | 4c 20 61 73 20 73 74 72 |HTTP.tUR|L as str|
|000052b0| 69 6e 67 00 00 01 23 01 | 23 1a 1b 53 75 62 20 67 |ing...#.|#..Sub g|
|000052c0| 65 74 48 54 54 50 28 74 | 55 52 4c 20 61 73 20 73 |etHTTP(t|URL as s|
|000052d0| 74 72 69 6e 67 29 23 64 | 69 6d 20 55 52 4c 2c 20 |tring)#d|im URL, |
|000052e0| 73 65 72 76 2c 20 70 61 | 74 68 2c 20 63 72 6c 66 |serv, pa|th, crlf|
|000052f0| 20 61 73 20 73 74 72 69 | 6e 67 00 08 49 6e 69 74 | as stri|ng..Init|
|00005300| 49 6e 66 6f 00 14 63 72 | 6c 66 3d 63 68 72 28 31 |Info..cr|lf=chr(1|
|00005310| 33 29 2b 63 68 72 28 31 | 30 29 08 55 52 4c 3d 74 |3)+chr(1|0).URL=t|
|00005320| 55 52 4c 00 08 6d 65 2e | 43 6c 6f 73 65 00 29 69 |URL..me.|Close.)i|
|00005330| 66 20 6c 6f 77 65 72 63 | 61 73 65 28 6c 65 66 74 |f lowerc|ase(left|
|00005340| 28 55 52 4c 2c 20 37 29 | 29 3d 22 68 74 74 70 3a |(URL, 7)|)="http:|
|00005350| 2f 2f 22 20 74 68 65 6e | 0f 55 52 4c 3d 6d 69 64 |//" then|.URL=mid|
|00005360| 28 55 52 4c 2c 20 38 29 | 06 65 6e 64 20 69 66 00 |(URL, 8)|.end if.|
|00005370| 19 69 66 20 69 6e 73 74 | 72 28 55 52 4c 2c 20 22 |.if inst|r(URL, "|
|00005380| 2f 22 29 3e 30 20 74 68 | 65 6e 21 73 65 72 76 3d |/")>0 th|en!serv=|
|00005390| 6c 65 66 74 28 55 52 4c | 2c 20 69 6e 73 74 72 28 |left(URL|, instr(|
|000053a0| 55 52 4c 2c 20 22 2f 22 | 29 2d 31 29 1e 70 61 74 |URL, "/"|)-1).pat|
|000053b0| 68 3d 6d 69 64 28 55 52 | 4c 2c 20 69 6e 73 74 72 |h=mid(UR|L, instr|
|000053c0| 28 55 52 4c 2c 20 22 2f | 22 29 29 04 65 6c 73 65 |(URL, "/|")).else|
|000053d0| 08 73 65 72 76 3d 55 52 | 4c 08 70 61 74 68 3d 22 |.serv=UR|L.path="|
|000053e0| 2f 22 06 65 6e 64 20 69 | 66 00 0c 63 75 72 53 69 |/".end i|f..curSi|
|000053f0| 74 65 3d 74 55 52 4c 14 | 44 6f 43 6f 6e 6e 65 63 |te=tURL.|DoConnec|
|00005400| 74 20 73 65 72 76 2c 20 | 70 61 74 68 00 07 45 6e |t serv, |path..En|
|00005410| 64 20 53 75 62 09 47 65 | 74 52 65 6c 55 52 4c 23 |d Sub.Ge|tRelURL#|
|00005420| 62 61 73 65 55 52 4c 20 | 61 73 20 73 74 72 69 6e |baseURL |as strin|
|00005430| 67 2c 20 72 65 6c 55 52 | 4c 20 61 73 20 73 74 72 |g, relUR|L as str|
|00005440| 69 6e 67 06 73 74 72 69 | 6e 67 00 01 20 01 20 20 |ing.stri|ng.. .  |
|00005450| 81 01 46 75 6e 63 74 69 | 6f 6e 20 47 65 74 52 65 |..Functi|on GetRe|
|00005460| 6c 55 52 4c 28 62 61 73 | 65 55 52 4c 20 61 73 20 |lURL(bas|eURL as |
|00005470| 73 74 72 69 6e 67 2c 20 | 72 65 6c 55 52 4c 20 61 |string, |relURL a|
|00005480| 73 20 73 74 72 69 6e 67 | 29 20 41 73 20 73 74 72 |s string|) As str|
|00005490| 69 6e 67 20 64 69 6d 20 | 49 20 61 73 20 69 6e 74 |ing dim |I as int|
|000054a0| 65 67 65 72 2c 20 62 2c | 20 6c 20 61 73 20 73 74 |eger, b,| l as st|
|000054b0| 72 69 6e 67 00 1d 69 66 | 20 69 6e 73 74 72 28 72 |ring..if| instr(r|
|000054c0| 65 6c 55 52 4c 2c 20 22 | 2e 2e 22 29 3d 30 20 74 |elURL, "|..")=0 t|
|000054d0| 68 65 6e 1d 49 66 20 52 | 69 67 68 74 28 62 61 73 |hen.If R|ight(bas|
|000054e0| 65 55 52 4c 2c 20 31 29 | 3d 22 2f 22 20 74 68 65 |eURL, 1)|="/" the|
|000054f0| 6e 15 72 65 74 75 72 6e | 20 62 61 73 65 55 52 4c |n.return| baseURL|
|00005500| 2b 72 65 6c 55 52 4c 04 | 65 6c 73 65 20 72 65 74 |+relURL.|else ret|
|00005510| 75 72 6e 20 54 72 69 6d | 54 6f 44 69 72 28 62 61 |urn Trim|ToDir(ba|
|00005520| 73 65 55 52 4c 29 2b 72 | 65 6c 55 52 4c 06 65 6e |seURL)+r|elURL.en|
|00005530| 64 20 69 66 00 04 65 6c | 73 65 09 62 3d 62 61 73 |d if..el|se.b=bas|
|00005540| 65 55 52 4c 00 17 69 66 | 20 72 69 67 68 74 28 62 |eURL..if| right(b|
|00005550| 2c 20 31 29 3d 22 2f 22 | 20 74 68 65 6e 0e 62 3d |, 1)="/"| then.b=|
|00005560| 54 72 69 6d 54 6f 44 69 | 72 28 62 29 06 65 6e 64 |TrimToDi|r(b).end|
|00005570| 20 69 66 00 25 66 6f 72 | 20 49 20 3d 20 31 20 74 | if.%for| I = 1 t|
|00005580| 6f 20 63 6f 75 6e 74 66 | 69 65 6c 64 73 28 72 65 |o countf|ields(re|
|00005590| 6c 55 52 4c 2c 20 22 2f | 22 29 1a 6c 3d 6e 74 68 |lURL, "/|").l=nth|
|000055a0| 46 69 65 6c 64 28 72 65 | 6c 55 52 4c 2c 20 22 2f |Field(re|lURL, "/|
|000055b0| 22 2c 20 49 29 0e 69 66 | 20 6c 3d 22 2e 2e 22 20 |", I).if| l=".." |
|000055c0| 74 68 65 6e 0e 62 3d 54 | 72 69 6d 54 6f 44 69 72 |then.b=T|rimToDir|
|000055d0| 28 62 29 27 65 6c 73 65 | 69 66 20 49 3c 3e 63 6f |(b)'else|if I<>co|
|000055e0| 75 6e 74 46 69 65 6c 64 | 73 28 72 65 6c 55 52 4c |untField|s(relURL|
|000055f0| 2c 20 22 2f 22 29 20 74 | 68 65 6e 09 62 3d 62 2b |, "/") t|hen.b=b+|
|00005600| 6c 2b 22 2f 22 04 65 6c | 73 65 05 62 3d 62 2b 6c |l+"/".el|se.b=b+l|
|00005610| 06 65 6e 64 20 69 66 04 | 6e 65 78 74 08 72 65 74 |.end if.|next.ret|
|00005620| 75 72 6e 20 62 00 06 65 | 6e 64 20 69 66 00 0c 45 |urn b..e|nd if..E|
|00005630| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 09 47 65 74 53 |nd Funct|ion.GetS|
|00005640| 74 72 50 61 74 1b 6e 75 | 6d 20 61 73 20 69 6e 74 |trPat.nu|m as int|
|00005650| 65 67 65 72 2c 20 73 20 | 61 73 20 73 74 72 69 6e |eger, s |as strin|
|00005660| 67 06 73 74 72 69 6e 67 | 00 01 1f 01 1f 08 39 46 |g.string|......9F|
|00005670| 75 6e 63 74 69 6f 6e 20 | 47 65 74 53 74 72 50 61 |unction |GetStrPa|
|00005680| 74 28 6e 75 6d 20 61 73 | 20 69 6e 74 65 67 65 72 |t(num as| integer|
|00005690| 2c 20 73 20 61 73 20 73 | 74 72 69 6e 67 29 20 41 |, s as s|tring) A|
|000056a0| 73 20 73 74 72 69 6e 67 | 1f 64 69 6d 20 49 20 61 |s string|.dim I a|
|000056b0| 73 20 69 6e 74 65 67 65 | 72 2c 20 72 65 74 20 61 |s intege|r, ret a|
|000056c0| 73 20 73 74 72 69 6e 67 | 00 10 66 6f 72 20 49 20 |s string|..for I |
|000056d0| 3d 20 31 20 74 6f 20 6e | 75 6d 09 72 65 74 3d 72 |= 1 to n|um.ret=r|
|000056e0| 65 74 2b 73 04 6e 65 78 | 74 0a 72 65 74 75 72 6e |et+s.nex|t.return|
|000056f0| 20 72 65 74 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f | ret.End| Functio|
|00005700| 6e 08 49 6e 69 74 49 6e | 66 6f 00 00 00 01 00 01 |n.InitIn|fo......|
|00005710| 00 0d 0e 53 75 62 20 49 | 6e 69 74 49 6e 66 6f 28 |...Sub I|nitInfo(|
|00005720| 29 10 47 6f 74 48 65 61 | 64 65 72 73 3d 66 61 6c |).GotHea|ders=fal|
|00005730| 73 65 09 66 69 6c 65 6c | 65 6e 3d 30 0b 66 69 6c |se.filel|en=0.fil|
|00005740| 65 74 79 70 65 3d 22 22 | 0a 48 65 61 64 65 72 73 |etype=""|.Headers|
|00005750| 3d 22 22 12 72 65 64 69 | 6d 20 48 65 61 64 65 72 |="".redi|m Header|
|00005760| 4e 61 6d 28 30 29 12 72 | 65 64 69 6d 20 48 65 61 |Nam(0).r|edim Hea|
|00005770| 64 65 72 56 61 6c 28 30 | 29 07 74 65 78 74 3d 22 |derVal(0|).text="|
|00005780| 22 0c 4c 61 73 74 41 6d | 6f 75 6e 74 3d 30 08 4c |".LastAm|ount=0.L|
|00005790| 61 73 74 4d 44 3d 30 0d | 54 6f 74 61 6c 4c 65 6e |astMD=0.|TotalLen|
|000057a0| 67 74 68 3d 30 0d 6e 75 | 6d 72 65 66 65 72 65 72 |gth=0.nu|mreferer|
|000057b0| 73 3d 30 07 45 6e 64 20 | 53 75 62 0c 50 61 72 73 |s=0.End |Sub.Pars|
|000057c0| 65 48 65 61 64 65 72 73 | 00 00 00 02 19 02 19 30 |eHeaders|.......0|
|000057d0| 12 53 75 62 20 50 61 72 | 73 65 48 65 61 64 65 72 |.Sub Par|seHeader|
|000057e0| 73 28 29 3a 64 69 6d 20 | 74 2c 20 6e 2c 20 76 2c |s():dim |t, n, v,|
|000057f0| 20 6e 55 52 4c 20 61 73 | 20 73 74 72 69 6e 67 2c | nURL as| string,|
|00005800| 20 71 20 61 73 20 62 6f | 6f 6c 65 61 6e 2c 20 49 | q as bo|olean, I|
|00005810| 2c 20 70 20 61 73 20 69 | 6e 74 65 67 65 72 19 64 |, p as i|nteger.d|
|00005820| 69 6d 20 63 20 61 73 20 | 74 65 78 74 6f 75 74 70 |im c as |textoutp|
|00005830| 75 74 73 74 72 65 61 6d | 00 28 48 65 61 64 65 72 |utstream|.(Header|
|00005840| 73 3d 72 65 70 6c 61 63 | 65 61 6c 6c 28 68 65 61 |s=replac|eall(hea|
|00005850| 64 65 72 73 2c 20 63 68 | 72 28 31 30 29 2c 20 22 |ders, ch|r(10), "|
|00005860| 22 29 00 2a 46 6f 72 20 | 49 20 3d 20 32 20 74 6f |").*For |I = 2 to|
|00005870| 20 63 6f 75 6e 74 46 69 | 65 6c 64 73 28 48 65 61 | countFi|elds(Hea|
|00005880| 64 65 72 73 2c 20 63 68 | 72 28 31 33 29 29 00 38 |ders, ch|r(13)).8|
|00005890| 74 3d 72 65 70 6c 61 63 | 65 61 6c 6c 28 6e 74 68 |t=replac|eall(nth|
|000058a0| 46 69 65 6c 64 28 48 65 | 61 64 65 72 73 2c 20 63 |Field(He|aders, c|
|000058b0| 68 72 28 31 33 29 2c 20 | 49 29 2c 20 63 68 72 28 |hr(13), |I), chr(|
|000058c0| 31 30 29 2c 20 22 22 29 | 15 6e 3d 6e 74 68 46 69 |10), "")|.n=nthFi|
|000058d0| 65 6c 64 28 74 2c 20 22 | 3a 22 2c 20 31 29 19 76 |eld(t, "|:", 1).v|
|000058e0| 3d 6d 69 64 28 74 2c 20 | 69 6e 73 74 72 28 74 2c |=mid(t, |instr(t,|
|000058f0| 20 22 3a 22 29 2b 31 29 | 12 48 65 61 64 65 72 4e | ":")+1)|.HeaderN|
|00005900| 61 6d 2e 41 70 70 65 6e | 64 20 6e 12 48 65 61 64 |am.Appen|d n.Head|
|00005910| 65 72 56 61 6c 2e 41 70 | 70 65 6e 64 20 76 0d 73 |erVal.Ap|pend v.s|
|00005920| 65 6c 65 63 74 20 63 61 | 73 65 20 6e 15 63 61 73 |elect ca|se n.cas|
|00005930| 65 20 22 43 6f 6e 74 65 | 6e 74 2d 4c 65 6e 67 74 |e "Conte|nt-Lengt|
|00005940| 68 22 12 74 6f 74 61 6c | 6c 65 6e 67 74 68 3d 76 |h".total|length=v|
|00005950| 61 6c 28 76 29 13 63 61 | 73 65 20 22 43 6f 6e 74 |al(v).ca|se "Cont|
|00005960| 65 6e 74 2d 54 79 70 65 | 22 10 66 69 6c 65 74 79 |ent-Type|".filety|
|00005970| 70 65 3d 74 72 69 6d 28 | 76 29 00 0f 63 61 73 65 |pe=trim(|v)..case|
|00005980| 20 22 4c 6f 63 61 74 69 | 6f 6e 22 06 6e 55 52 4c | "Locati|on".nURL|
|00005990| 3d 76 00 17 63 61 73 65 | 20 22 57 57 57 2d 41 75 |=v..case| "WWW-Au|
|000059a0| 74 68 65 6e 74 69 63 61 | 74 65 22 10 6c 6f 67 69 |thentica|te".logi|
|000059b0| 6e 36 34 3d 73 74 52 28 | 49 2d 31 29 00 0a 65 6e |n64=stR(|I-1)..en|
|000059c0| 64 20 73 65 6c 65 63 74 | 00 04 6e 65 78 74 00 0f |d select|..next..|
|000059d0| 52 65 63 65 69 76 65 64 | 48 65 61 64 65 72 73 00 |Received|Headers.|
|000059e0| 10 69 66 20 6e 55 52 4c | 3c 3e 22 22 20 74 68 65 |.if nURL|<>"" the|
|000059f0| 6e 08 6d 65 2e 43 6c 6f | 73 65 15 63 3d 66 69 6c |n.me.Clo|se.c=fil|
|00005a00| 65 2e 43 72 65 61 74 65 | 54 65 78 74 66 69 6c 65 |e.Create|Textfile|
|00005a10| 07 63 2e 63 6c 6f 73 65 | 0f 6e 55 52 4c 3d 74 72 |.c.close|.nURL=tr|
|00005a20| 69 6d 28 6e 55 52 4c 29 | 19 6e 75 6d 72 65 66 65 |im(nURL)|.numrefe|
|00005a30| 72 65 72 73 3d 6e 75 6d | 72 65 66 65 72 65 72 73 |rers=num|referers|
|00005a40| 2b 31 0d 49 3d 6e 75 6d | 72 65 66 65 72 65 72 73 |+1.I=num|referers|
|00005a50| 0c 69 66 20 69 3c 3d 36 | 20 74 68 65 6e 17 47 65 |.if i<=6| then.Ge|
|00005a60| 74 48 54 54 50 20 46 6f | 72 6d 61 74 55 52 4c 28 |tHTTP Fo|rmatURL(|
|00005a70| 6e 55 52 4c 29 1f 4c 6f | 63 61 74 69 6f 6e 43 68 |nURL).Lo|cationCh|
|00005a80| 61 6e 67 65 64 20 46 6f | 72 6d 61 74 55 52 4c 28 |anged Fo|rmatURL(|
|00005a90| 6e 55 52 4c 29 0d 6e 75 | 6d 72 65 66 65 72 65 72 |nURL).nu|mreferer|
|00005aa0| 73 3d 69 04 65 6c 73 65 | 09 43 61 6e 63 65 6c 6c |s=i.else|.Cancell|
|00005ab0| 65 64 0d 6e 75 6d 72 65 | 66 65 72 65 72 73 3d 30 |ed.numre|ferers=0|
|00005ac0| 06 65 6e 64 20 69 66 06 | 65 6e 64 20 69 66 07 45 |.end if.|end if.E|
|00005ad0| 6e 64 20 53 75 62 08 50 | 6f 73 74 46 6f 72 6d 00 |nd Sub.P|ostForm.|
|00005ae0| 00 00 01 12 01 12 0c 0e | 53 75 62 20 50 6f 73 74 |........|Sub Post|
|00005af0| 46 6f 72 6d 28 29 12 64 | 69 6d 20 63 72 6c 66 20 |Form().d|im crlf |
|00005b00| 61 73 20 73 74 72 69 6e | 67 00 14 63 72 6c 66 3d |as strin|g..crlf=|
|00005b10| 63 68 72 28 31 33 29 2b | 63 68 72 28 31 30 29 2a |chr(13)+|chr(10)*|
|00005b20| 6d 65 2e 57 72 69 74 65 | 20 22 43 6f 6e 74 65 6e |me.Write| "Conten|
|00005b30| 74 2d 74 79 70 65 3a 20 | 22 2b 50 6f 73 74 45 6e |t-type: |"+PostEn|
|00005b40| 63 54 79 70 65 2b 63 72 | 6c 66 33 6d 65 2e 57 72 |cType+cr|lf3me.Wr|
|00005b50| 69 74 65 20 22 43 6f 6e | 74 65 6e 74 2d 6c 65 6e |ite "Con|tent-len|
|00005b60| 67 74 68 3a 20 22 2b 73 | 74 72 28 6c 65 6e 28 70 |gth: "+s|tr(len(p|
|00005b70| 6f 73 74 64 61 74 61 29 | 29 2b 63 72 6c 66 0d 27 |ostdata)|)+crlf.'|
|00005b80| 6d 65 2e 57 72 69 74 65 | 20 22 20 22 0d 6d 65 2e |me.Write| " ".me.|
|00005b90| 57 72 69 74 65 20 63 72 | 6c 66 11 6d 65 2e 57 72 |Write cr|lf.me.Wr|
|00005ba0| 69 74 65 20 50 6f 73 74 | 44 61 74 61 0b 50 6f 73 |ite Post|Data.Pos|
|00005bb0| 74 44 61 74 61 3d 22 22 | 0a 4d 65 74 68 6f 64 3d |tData=""|.Method=|
|00005bc0| 47 65 74 07 45 6e 64 20 | 53 75 62 0d 53 65 74 43 |Get.End |Sub.SetC|
|00005bd0| 6c 69 65 6e 74 4e 61 6d | 65 21 6e 61 6d 65 20 61 |lientNam|e!name a|
|00005be0| 73 20 73 74 72 69 6e 67 | 2c 20 76 65 72 73 69 6f |s string|, versio|
|00005bf0| 6e 20 61 73 20 73 69 6e | 67 6c 65 00 00 01 00 01 |n as sin|gle.....|
|00005c00| 00 06 34 53 75 62 20 53 | 65 74 43 6c 69 65 6e 74 |..4Sub S|etClient|
|00005c10| 4e 61 6d 65 28 6e 61 6d | 65 20 61 73 20 73 74 72 |Name(nam|e as str|
|00005c20| 69 6e 67 2c 20 76 65 72 | 73 69 6f 6e 20 61 73 20 |ing, ver|sion as |
|00005c30| 73 69 6e 67 6c 65 29 20 | 43 6c 69 65 6e 74 3d 52 |single) |Client=R|
|00005c40| 65 70 6c 61 63 65 41 6c | 6c 28 6e 61 6d 65 2c 20 |eplaceAl|l(name, |
|00005c50| 22 20 22 2c 20 22 22 29 | 20 43 6c 69 65 6e 74 3d |" ", "")| Client=|
|00005c60| 52 65 70 6c 61 63 65 61 | 6c 6c 28 6e 61 6d 65 2c |Replacea|ll(name,|
|00005c70| 20 22 2f 22 2c 20 22 22 | 29 11 43 6c 69 65 6e 74 | "/", ""|).Client|
|00005c80| 3d 43 6c 69 65 6e 74 2b | 22 2f 22 2f 43 6c 69 65 |=Client+|"/"/Clie|
|00005c90| 6e 74 3d 43 6c 69 65 6e | 74 2b 72 65 70 6c 61 63 |nt=Clien|t+replac|
|00005ca0| 65 61 6c 6c 28 73 74 72 | 28 76 65 72 73 69 6f 6e |eall(str|(version|
|00005cb0| 29 2c 20 22 2e 22 2c 20 | 22 22 29 07 45 6e 64 20 |), ".", |"").End |
|00005cc0| 53 75 62 0b 53 65 74 46 | 69 6c 65 54 79 70 65 23 |Sub.SetF|ileType#|
|00005cd0| 6d 69 6d 65 6e 61 6d 65 | 20 61 73 20 73 74 72 69 |mimename| as stri|
|00005ce0| 6e 67 2c 20 66 20 61 73 | 20 66 6f 6c 64 65 72 69 |ng, f as| folderi|
|00005cf0| 74 65 6d 00 00 02 00 02 | 00 0d 34 53 75 62 20 53 |tem.....|..4Sub S|
|00005d00| 65 74 46 69 6c 65 54 79 | 70 65 28 6d 69 6d 65 6e |etFileTy|pe(mimen|
|00005d10| 61 6d 65 20 61 73 20 73 | 74 72 69 6e 67 2c 20 66 |ame as s|tring, f|
|00005d20| 20 61 73 20 66 6f 6c 64 | 65 72 69 74 65 6d 29 10 | as fold|eritem).|
|00005d30| 64 69 6d 20 69 20 61 73 | 20 69 6e 74 65 67 65 72 |dim i as| integer|
|00005d40| 00 17 66 6f 72 20 69 3d | 31 20 74 6f 20 75 62 6f |..for i=|1 to ubo|
|00005d50| 75 6e 64 28 6d 69 6d 65 | 29 32 69 66 20 73 74 72 |und(mime|)2if str|
|00005d60| 63 6f 6d 70 28 6c 6f 77 | 65 72 63 61 73 65 28 6d |comp(low|ercase(m|
|00005d70| 69 6d 65 6e 61 6d 65 29 | 2c 20 6d 69 6d 65 28 69 |imename)|, mime(i|
|00005d80| 29 2c 20 30 29 3d 30 20 | 74 68 65 6e 16 66 2e 6d |), 0)=0 |then.f.m|
|00005d90| 61 63 74 79 70 65 3d 20 | 6d 69 6d 65 74 79 70 65 |actype= |mimetype|
|00005da0| 28 69 29 1c 66 2e 6d 61 | 63 63 72 65 61 74 6f 72 |(i).f.ma|ccreator|
|00005db0| 3d 20 6d 69 6d 65 63 72 | 65 61 74 6f 72 28 69 29 |= mimecr|eator(i)|
|00005dc0| 06 72 65 74 75 72 6e 06 | 65 6e 64 20 69 66 04 6e |.return.|end if.n|
|00005dd0| 65 78 74 11 66 2e 6d 61 | 63 74 79 70 65 3d 20 22 |ext.f.ma|ctype= "|
|00005de0| 54 45 58 54 22 14 66 2e | 4d 61 63 43 72 65 61 74 |TEXT".f.|MacCreat|
|00005df0| 6f 72 3d 20 22 74 74 78 | 74 22 07 45 6e 64 20 53 |or= "ttx|t".End S|
|00005e00| 75 62 09 54 72 69 6d 54 | 6f 44 69 72 0b 74 20 61 |ub.TrimT|oDir.t a|
|00005e10| 73 20 73 74 72 69 6e 67 | 06 73 74 72 69 6e 67 00 |s string|.string.|
|00005e20| 02 00 02 00 0a 29 46 75 | 6e 63 74 69 6f 6e 20 54 |.....)Fu|nction T|
|00005e30| 72 69 6d 54 6f 44 69 72 | 28 74 20 61 73 20 73 74 |rimToDir|(t as st|
|00005e40| 72 69 6e 67 29 20 41 73 | 20 73 74 72 69 6e 67 0f |ring) As| string.|
|00005e50| 64 69 6d 20 62 20 61 73 | 20 73 74 72 69 6e 67 00 |dim b as| string.|
|00005e60| 13 62 3d 6c 65 66 74 28 | 74 2c 20 6c 65 6e 28 74 |.b=left(|t, len(t|
|00005e70| 29 2d 31 29 20 77 68 69 | 6c 65 20 72 69 67 68 74 |)-1) whi|le right|
|00005e80| 28 62 2c 20 31 29 3c 3e | 22 2f 22 20 61 6e 64 20 |(b, 1)<>|"/" and |
|00005e90| 62 3c 3e 22 22 13 62 3d | 6c 65 66 74 28 62 2c 20 |b<>"".b=|left(b, |
|00005ea0| 6c 65 6e 28 62 29 2d 31 | 29 04 77 65 6e 64 00 08 |len(b)-1|).wend..|
|00005eb0| 72 65 74 75 72 6e 20 62 | 0c 45 6e 64 20 46 75 6e |return b|.End Fun|
|00005ec0| 63 74 69 6f 6e 09 55 52 | 4c 45 6e 63 6f 64 65 20 |ction.UR|LEncode |
|00005ed0| 6e 61 6d 20 61 73 20 73 | 74 72 69 6e 67 2c 20 63 |nam as s|tring, c|
|00005ee0| 6f 6e 74 65 6e 74 20 61 | 73 20 73 74 72 69 6e 67 |ontent a|s string|
|00005ef0| 06 73 74 72 69 6e 67 00 | 13 00 13 00 17 3e 46 75 |.string.|.....>Fu|
|00005f00| 6e 63 74 69 6f 6e 20 55 | 52 4c 45 6e 63 6f 64 65 |nction U|RLEncode|
|00005f10| 28 6e 61 6d 20 61 73 20 | 73 74 72 69 6e 67 2c 20 |(nam as |string, |
|00005f20| 63 6f 6e 74 65 6e 74 20 | 61 73 20 73 74 72 69 6e |content |as strin|
|00005f30| 67 29 20 41 73 20 73 74 | 72 69 6e 67 12 64 69 6d |g) As st|ring.dim|
|00005f40| 20 61 31 2c 73 20 61 73 | 20 73 74 72 69 6e 67 11 | a1,s as| string.|
|00005f50| 64 69 6d 20 72 65 70 20 | 61 73 20 73 74 72 69 6e |dim rep |as strin|
|00005f60| 67 10 64 69 6d 20 69 20 | 61 73 20 69 6e 74 65 67 |g.dim i |as integ|
|00005f70| 65 72 00 23 66 6f 72 20 | 69 3d 31 20 74 6f 20 63 |er.#for |i=1 to c|
|00005f80| 6f 75 6e 74 66 69 65 6c | 64 73 28 6e 61 6d 2c 63 |ountfiel|ds(nam,c|
|00005f90| 68 72 28 31 33 29 29 3c | 61 31 3d 72 65 70 6c 61 |hr(13))<|a1=repla|
|00005fa0| 63 65 61 6c 6c 28 6e 74 | 68 66 69 65 6c 64 28 6e |ceall(nt|hfield(n|
|00005fb0| 61 6d 2c 63 68 72 28 31 | 33 29 2c 69 29 2c 22 25 |am,chr(1|3),i),"%|
|00005fc0| 22 2c 22 25 22 2b 68 65 | 78 28 61 73 63 28 22 25 |","%"+he|x(asc("%|
|00005fd0| 22 29 29 29 28 61 31 3d | 72 65 70 6c 61 63 65 61 |")))(a1=|replacea|
|00005fe0| 6c 6c 28 61 31 2c 22 26 | 22 2c 20 22 25 22 2b 68 |ll(a1,"&|", "%"+h|
|00005ff0| 65 78 28 61 73 63 28 22 | 26 22 29 29 29 06 73 3d |ex(asc("|&"))).s=|
|00006000| 73 2b 61 31 80 01 61 31 | 3d 72 65 70 6c 61 63 65 |s+a1..a1|=replace|
|00006010| 61 6c 6c 28 6e 74 68 66 | 69 65 6c 64 28 63 6f 6e |all(nthf|ield(con|
|00006020| 74 65 6e 74 2c 63 68 72 | 28 31 33 29 2c 69 29 2c |tent,chr|(13),i),|
|00006030| 22 25 22 2c 22 25 22 2b | 68 65 78 28 61 73 63 28 |"%","%"+|hex(asc(|
|00006040| 22 25 22 29 29 29 28 61 | 31 3d 72 65 70 6c 61 63 |"%")))(a|1=replac|
|00006050| 65 61 6c 6c 28 61 31 2c | 22 26 22 2c 20 22 25 22 |eall(a1,|"&", "%"|
|00006060| 2b 68 65 78 28 61 73 63 | 28 22 26 22 29 29 29 0e |+hex(asc|("&"))).|
|00006070| 73 3d 73 2b 22 3d 22 2b | 61 31 2b 22 26 22 04 6e |s=s+"="+|a1+"&".n|
|00006080| 65 78 74 12 73 3d 6c 65 | 66 74 28 73 2c 6c 65 6e |ext.s=le|ft(s,len|
|00006090| 28 73 29 2d 31 29 17 73 | 3d 72 65 70 6c 61 63 65 |(s)-1).s|=replace|
|000060a0| 61 6c 6c 28 73 2c 22 20 | 22 2c 22 2b 22 29 23 72 |all(s," |","+")#r|
|000060b0| 65 70 3d 22 2c 22 2b 63 | 68 72 28 31 33 29 2b 22 |ep=","+c|hr(13)+"|
|000060c0| 2f 5c 5d 5b 7b 7d 60 7e | 2d 5f 28 29 2a 5e 24 23 |/\][{}`~|-_()*^$#|
|000060d0| 21 22 00 13 66 6f 72 20 | 69 3d 31 20 74 6f 20 6c |!"..for |i=1 to l|
|000060e0| 65 6e 28 72 65 70 29 37 | 73 3d 72 65 70 6c 61 63 |en(rep)7|s=replac|
|000060f0| 65 61 6c 6c 28 73 2c 6d | 69 64 28 72 65 70 2c 69 |eall(s,m|id(rep,i|
|00006100| 2c 31 29 2c 22 25 22 2b | 68 65 78 28 61 73 63 28 |,1),"%"+|hex(asc(|
|00006110| 6d 69 64 28 72 65 70 2c | 69 2c 31 29 29 29 29 04 |mid(rep,|i,1)))).|
|00006120| 6e 65 78 74 00 08 72 65 | 74 75 72 6e 20 73 0c 45 |next..re|turn s.E|
|00006130| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 09 09 43 61 6e |nd Funct|ion..Can|
|00006140| 63 65 6c 6c 65 64 00 00 | 0a 44 4c 46 69 6e 69 73 |celled..|.DLFinis|
|00006150| 68 65 64 82 01 66 20 61 | 73 20 66 6f 6c 64 65 72 |hed..f a|s folder|
|00006160| 69 74 65 6d 2c 20 74 78 | 74 20 61 73 20 73 74 72 |item, tx|t as str|
|00006170| 69 6e 67 2c 20 70 69 63 | 20 61 73 20 70 69 63 74 |ing, pic| as pict|
|00006180| 75 72 65 2c 20 66 69 6c | 65 74 79 70 65 20 61 73 |ure, fil|etype as|
|00006190| 20 73 74 72 69 6e 67 00 | 05 45 72 72 6f 72 1e 63 | string.|.Error.c|
|000061a0| 6f 64 65 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |ode as i|nteger, |
|000061b0| 6d 73 67 20 61 73 20 73 | 74 72 69 6e 67 00 0f 4c |msg as s|tring..L|
|000061c0| 6f 63 61 74 69 6f 6e 43 | 68 61 6e 67 65 64 10 6e |ocationC|hanged.n|
|000061d0| 65 77 4c 6f 63 20 61 73 | 20 73 74 72 69 6e 67 00 |ewLoc as| string.|
|000061e0| 0b 4c 6f 67 69 6e 46 61 | 69 6c 65 64 0d 55 52 4c |.LoginFa|iled.URL|
|000061f0| 20 61 73 20 73 74 72 69 | 6e 67 07 62 6f 6f 6c 65 | as stri|ng.boole|
|00006200| 61 6e 08 4d 6f 72 65 44 | 61 74 61 3f 61 6d 74 20 |an.MoreD|ata?amt |
|00006210| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 74 6f 74 61 |as integ|er, tota|
|00006220| 6c 20 61 73 20 69 6e 74 | 65 67 65 72 2c 20 70 63 |l as int|eger, pc|
|00006230| 74 20 61 73 20 73 69 6e | 67 6c 65 2c 20 62 70 73 |t as sin|gle, bps|
|00006240| 20 61 73 20 69 6e 74 65 | 67 65 72 00 04 4f 70 65 | as inte|ger..Ope|
|00006250| 6e 00 00 0e 50 61 73 73 | 77 6f 72 64 4e 65 65 64 |n...Pass|wordNeed|
|00006260| 65 64 0f 72 65 61 6c 6d | 20 61 73 20 73 74 72 69 |ed.realm| as stri|
|00006270| 6e 67 06 73 74 72 69 6e | 67 0f 52 65 63 65 69 76 |ng.strin|g.Receiv|
|00006280| 65 64 48 65 61 64 65 72 | 73 00 00 04 05 45 72 72 |edHeader|s....Err|
|00006290| 6f 72 0a 00 0a 00 26 0b | 53 75 62 20 45 72 72 6f |or....&.|Sub Erro|
|000062a0| 72 28 29 2c 64 69 6d 20 | 74 65 6d 70 32 20 61 73 |r(),dim |temp2 as|
|000062b0| 20 69 6e 74 65 67 65 72 | 2c 20 53 74 20 61 73 20 | integer|, St as |
|000062c0| 54 65 78 74 4f 75 74 70 | 75 74 53 74 72 65 61 6d |TextOutp|utStream|
|000062d0| 29 64 69 6d 20 6d 73 67 | 2c 63 72 6c 66 2c 74 65 |)dim msg|,crlf,te|
|000062e0| 6d 70 20 61 73 20 73 74 | 72 69 6e 67 2c 20 62 20 |mp as st|ring, b |
|000062f0| 61 73 20 62 6f 6f 6c 65 | 61 6e 00 18 63 72 6c 66 |as boole|an..crlf|
|00006300| 20 3d 20 63 68 72 28 31 | 33 29 20 2b 20 63 68 72 | = chr(1|3) + chr|
|00006310| 28 31 30 29 00 18 73 74 | 3d 66 69 6c 65 2e 41 70 |(10)..st|=file.Ap|
|00006320| 70 65 6e 64 54 6f 54 65 | 78 74 46 69 6c 65 0d 73 |pendToTe|xtFile.s|
|00006330| 74 2e 57 72 69 74 65 20 | 74 65 78 74 08 73 74 2e |t.Write |text.st.|
|00006340| 43 6c 6f 73 65 07 74 65 | 78 74 3d 22 22 00 1a 53 |Close.te|xt=""..S|
|00006350| 65 74 46 69 6c 65 54 79 | 70 65 20 66 69 6c 65 74 |etFileTy|pe filet|
|00006360| 79 70 65 2c 20 66 69 6c | 65 00 1c 53 65 6c 65 63 |ype, fil|e..Selec|
|00006370| 74 20 43 61 73 65 20 6d | 65 2e 4c 61 73 74 45 72 |t Case m|e.LastEr|
|00006380| 72 6f 72 43 6f 64 65 00 | 08 43 61 73 65 20 31 30 |rorCode.|.Case 10|
|00006390| 30 24 6d 73 67 3d 20 22 | 20 4f 70 65 6e 20 54 72 |0$msg= "| Open Tr|
|000063a0| 61 6e 73 70 6f 72 74 20 | 4e 6f 74 20 49 6e 73 74 |ansport |Not Inst|
|000063b0| 61 6c 6c 65 64 22 08 43 | 61 73 65 20 31 30 31 26 |alled".C|ase 101&|
|000063c0| 6d 73 67 3d 20 22 20 4e | 6f 20 43 6f 6e 6e 65 63 |msg= " N|o Connec|
|000063d0| 74 69 6f 6e 20 28 42 61 | 64 20 4e 61 6d 65 20 6f |tion (Ba|d Name o|
|000063e0| 72 20 49 50 29 22 08 43 | 61 73 65 20 31 30 32 19 |r IP)".C|ase 102.|
|000063f0| 6d 73 67 3d 20 22 20 44 | 6f 77 6e 6c 6f 61 64 20 |msg= " D|ownload |
+--------+-------------------------+-------------------------+--------+--------+